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I.  INTRODUCTION 


The  purpose  of  this  thesis  is  to  describe  the  development 
of  an  IBM  (CP/CMS) ^  version  of  the  Graphics-oriented  Inter¬ 
active  Finite  Element  Time-sharing  System  (GIFTS).  GIFTS, 
developed  at,  and  available  from  the  University  of  Arizona, 
is  a  set  of  computer  programs  designed  to  perform  static  and 
dynamic  structural  finite  element  analysis,  making  extensive 
use  of  interactive  computer  graphics  which  allows  the  user  to 
ensure  correct  structural  modeling  and  to  view  the  results  of 
the  analysis  in  a  manner  most  understandable  to  him. 

Versions  of  GIFTS  have  been  developed  for  several  differ¬ 
ent  computers  but  not  for  the  IBM,  and  in  particular,  for  an 
IBM  with  CP/ CMS.  At  the  Naval  Postgraduate  School  it  was 
desired  to  provide  GIFTS  as  an  instructional  tool  to  the 
students  on  a  system  for  which  they  enjoy  ready  access  and 
were  familiar.  This  system  is  the  school's  main  frame,  an 
IBM  3033  with  CP/CMS.  It  was  to  meet  this  need  that  the 
development  was  undertaken.  A  self-contained  IBM  (CP/CMS) 
version  of  GIFTS  for  an  IBM  with  CP/CMS  was  developed  in  such 
a  way  as  to  allow  easy  implementation  on  other  IBM  systems 
with  CP/CMS. 

International  Business  Machine  with  the  Command  Program 
and  Conversational  Monitor  System. 
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It  is  not  the  intent  of  this  thesis  to  provide  a  detailed 
description  of  GIFTS,  for  this,  the  reader  should  consult  the 
GIFTS  reference  manuals  [Refs.  1-4].  It  is  the  intent  to 
provide  information  on  those  areas  of  GIFTS  logic  and  struc¬ 
ture  that  are  necessary  to  the  understanding  of  this  version’s 
development  and  to  provide  some  guidance  in  the  implementation 
and  use  of  the  GIFTS  IBM  (CP/CMS)  version. 
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II .  A  BRIEF  DESCRIPTION  OF  GIFTS 

GIFTS,  developed  by  Professor  Hussein  A.  Kamel  and  Mr. 
Michael  W.  McCabe  of  the  University  of  Arizona,  is  an  inter¬ 
active  finite  element  analysis  system  designed  to  provide 
the  user  with  a  unified  approach  to  model  generation,  model 
display  (tabular  or  graphical),  analysis  and  result  display, 
with  a  minimum  of  input  by  the  user.  It  may  be  used  as  a 
self-contained  system,  or  as  a  pre-  and  post-processor  for 
other  systems."  It  is  operational  on  many  systems,  includ¬ 
ing  mini-computers  with  cores  having  as  few  as  32,000  words 
of  addressable  memory  (on  mini-computers,  the  program  modules 
must  be  overlayed) . 

GIFTS  consists  of  over  100,000  lines  of  FORTRAN  source 
code  divided  among  25  individually  executable  program  modules. 
The  modules,  being  run  independently  of  each  other,  communi¬ 
cate  by  means  of  an  automatically  managed,  disk  resident 
data  base,  known  as  the  Unified  Data  Base  (UDB) .  To  perform 
a  complete  finite  element  analysis  with  GIFTS,  the  user  exe¬ 
cutes  a  GIFTS  procedure,  using  a  number  of  modules  in  a 
specified  order  depending  on  the  type  of  analysis  being 
performed.  GIFTS  has  procedures  for  static,  transient, 
modal,  and  constrained  substructural  analysis  of  three 

2 

Interfaces  for  pre-  and  post-processing  are  available 
for  ANSYS,  SAP4 ,  and  NASTRAN. 
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dimensional  truss,  plate,  shell,  and  solid  finite  element 
models.  The  program  modules  use  interactive  computer  graphics 
extensively  for  viewing  the  results  of  model  generation  and 
problem  solution.  GIFTS  can  also  provide  the  user  with  the 
information  in  tabular  form. 

A.  THE  MODULES 

The  GIFTS  program  modules  vary  in  size  from  a  few  hundred 
lines  to  over  12,000  lines  of  machine  independent  code.  They 
can  be  grouped  according  to  their  intended  use.  These  group¬ 
ings  are: 

1)  the  model  generation  and  editing  modules, 

2)  the  load  and  boundary  condition  generation,  dis¬ 
play  and  editing  modules, 

3)  the  general  purpose  computational  and  result 
display  modules, 

4)  the  natural  vibration  analysis  modules, 

5)  the  transient  analysis  modules,  and 

6)  the  constrained  substructuring  modules. 

A  brief  description  of  the  program  modules  can  be  found  in 
Appendix  A. 

B.  THE  LIBRARIES 

Commonly  used  subroutines  and  functions  are  grouped  into 
a  user  library  called  the  GIFTS  library.  For  convenience, 
the  GIFTS  library  is  subdivided  into  five  groups  called 
LIBR1 ,  LIBR2,  LIBR3 ,  LIBR4,  and  LIBR5 .  Of  these  groups, 
only  LIBR5  contains  machine  dependent  subroutines  and 
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functions.  LIBR5  is  composed  of  approximately  30  routines 
containing  machine  dependencies  that  must  be  modified  for 
each  computer  system  on  which  GIFTS  is  implemented.  The 
routines  in  LIBR5  are  grouped  according  to  function.  The 
groups  are  the  Graphics  Package,  the  Character  Manipulation 
Package,  and  the  Data  Base  Management  Package.  It  was  through 
the  modification  of,  and  addition  to,  these  packages  that  the 
IBM  (CP/ CMS)  version  was  developed. 

1 .  The  Graphics  Package 

This  is  a  set  of  subroutines  containing  all  the  neces¬ 
sary  software  to  drive  a  Tektronix  4000  series  graphics  ter¬ 
minal.  If  a  different  terminal  is  desired  for  the  graphics 
output,  these  subroutines  are  the  ones  to  be  modified. 

2 .  The  Character  Manipulation  Package 

These  subroutines  are  used  to  pack,  unpack,  compare, 
and  change  the  format  of  characters  and  character  strings. 

They  conduct  interactive  I/O  with  the  user  and  make  Operating 
System  calls  for  the  date,  time  of  day,  and  CPU  time  used. 

3 .  The  Data  Base  Management  Package 

This  package  of  routines  performs  data  base  manage¬ 
ment  by  invoking  primitive  file  handling  functions,  such  as 
opening,  closing,  defining,  extending,  renaming,  printing, 
and  deleting  UDB  files.  It  additionally  performs  all  I/O 
operations  with  the  direct  access  UDB  files. 
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III.  IBM  IMPLEMENTATION 


Three  requirements  were  established  for  this  IBM  (CP/CMS) 
version  development  of  GIFTS.  They  were:  to  maintain  the 
logic  of  the  machine  independent  routines3  (that  is,  not  to 
alter  them) ;  to  continue  the  use  of  the  Tektronix  4000  series 
terminals  for  graphics;  and  to  provide  a  self-contained  pack¬ 
age  of  routines  that  would  allow  installation  on  other  IBM 
systems  with  little  or  no  alteration.  The  only  requirement 
not  met  was  the  first,  to  maintain  the  logic  of  the  machine 
independent  routines,  but  it  was  only  necessary  to  modify 
subroutine  FRESLT4  in  LIBR1.  This  alteration  and  the  accom¬ 
plishment  of  the  other  requirements  are  discussed  below. 

A.  THE  SYSTEM 

The  IBM  (CP/CMS)  version  was  developed  on  an  IBM  3033 
with  the  Virtual  Machine  Facility/370  (VM/370)  System.  It 
should  be  noted  that  VM  is  not  the  operating  system  but 
rather  the  virtual  machine  'manager'. 

The  VM/370  system  supervises  four  components:  the  con¬ 
trol  program  (CP) ,  the  conversational  monitor  system  (CMS) , 
the  remote  spooling  communications  subsystem  (RSCS) ,  and 

3The  GIFTS'  program  modules,  LIBR1,  LIBR2,  LIBR3,  and 
LIBR4 . 

4 

See  the  Section  on  the  Opening  of  Files  in  this  Chapter. 
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the  interactive  problem  control  system  (IPCS) .  Only  two  of 
these  components,  CP  and  CMS,  were  necessary  for  the  imple¬ 
mentation  of  GIFTS.  More  detailed  information  on  CP/CMS  can 
be  obtained  from  References  [5]  through  [8], 

1 .  The  Control  Program  (CP) 

CP  allocates  to  the  virtual  machine  of  each  user  the 
resources  necessary  for  proper  interface  between  the  virtual 
machine,  with  associated  virtual  input/output  (I/O)  devices, 
and  the  real  computer  with  associated  real  I/O  devices.  It 
additionally  allows  communication  between  virtual  machines, 

2 .  The  Conversational  Monitor  System  (CMS) 

CMS  is  the  operating  system  of  the  virtual  machine 
and  as  such  has  commands  for  editing,  compiling,  loading 
(linking),  and  executing  programs.  It  also  has  commands  for 
file  manipulation  that  can  be  invoked  from  the  CMS  environ¬ 
ment,  an  'EXEC'  file5,  or  from  an  executing  program.  It  is 
through  the  use  of  these  file  manipulation  commands,  invoked 
from  GIFTS  during  execution,  that  the  development  of  this 
version  was  made  possible.  A  brief  description  of  the  CMS 
commands  used  in  the  IBM  (CP/CMS)  version  can  be  found  in 
Appendix  B . 

a.  Invoking  CMS  Commands  from  an  Executing  Program 
In  order  to  invoke  a  CMS  command  from  an  execut¬ 
ing  program  it  was  necessary  to  provide  an  assembly  language 

5This  is  the  same  as  a  command  file  in  other  operating 
systems . 
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program  that  would  execute  CMS  commands  passed  to  it  from  the 
executing  program.  To  this  end,  the  assembly  program  FRTCMX 
was  developed.  A  listing  of  FRTCMX  can  be  found  in  the  list¬ 
ing  of  LIBRSA  in  Appendix  H.  FRTCMX  executes  the  CMS  commands 
in  the  CMS  environment,  and  then  returns  control  to  the  call¬ 
ing  FORTRAN  program.  As  an  example,  the  FORTRAN  statement: 

CALL  FRTCMX  (IERR, 'ERASE  ’ , ' PIPJOINT ' , » PTS  ') 

would  delete  the  file  'PIPJOINT  PTS  A'  from  the  user's  disk 
space.  The  argument  IERR  contains  the  CMS  return  code  (error 
code)  that  could  be  checked  to  ensure  the  command  execution 
was  successful.  More  detailed  documentation  on  the  use  of 
FRTCMX  can  be  found  in  its  listing. 

b.  The  CMS  File  Identifier 

CMS  also  controls  the  file  identifier.  A  file 
created  under  CMS  has  an  identifier  composed  of  three  parts: 
a  file  name  (maximum  of  8  characters) ,  a  file  type  (maximum 
of  8  characters) ,  and  a  file  mode  (2  characters) .  As  an 
example,  in  the  file  identifier: 

PIPJOINT  PTS  Al. 

PIPJOINT  is  the  file  name,  PTS  is  the  file  type,  and  Al 
(indicating  the  file  is  on  the  user's  'A'  disk)  is  the  file 
mode.  CMS  does  not  allow  more  than  one  version  of  a  file  to 
exist  on  a  disk  space.  That  is  to  say,  two  files  on  the  same 


15 


disk  space  cannot  have  the  same  name  and  file  type,  which 
proved  to  be  of  some  importance  in  this  version's  development.^ 

B.  THE  IBM  (CP/ CMS)  GRAPHICS  PACKAGE 

As  stated  earlier,  a  goal  of  this  verion’s  development 
was  to  continue  the  use  of  the  Tektronix  4000  series  terminals, 
for  graphics.  To  this  end,  the  GIFTS  graphics  package  sup¬ 
plied  by  the  University  of  Arizona  was  used  and  required  only 
minor  modifications.  In  addition  to  these  modifications,  it 
was  necessary  to  add  four  assembly  routines  to  provide  for 
ASCII  to  EBCDIC  conversion  and  non- interfering  I/O  operations 
between  the  graphics  package  and  the  terminal.  This  section 
is  intended  to  cover  the  need  for  the  modifications  and  the 
added  subroutines.  A  description  of  all  the  graphics  package’s 
subroutines  can  be  found  in  Appendix  E,  and  a  listing  of  the 
assembly  routines  can  be  found  in  Appendix  H. 

1 .  ASCII/EBCDIC  Translation 

The  IBM  system  uses  the  EBCDIC  character  set  while 
the  Tektronix  terminals  use  ASCII.  To  allow  communication 
between  the  computer  and  an  ASCII  terminal,  an  IBM  ASCII 
interface  is  provided,  within  the  system,  that  automatically 
executes  the  conversion  between  ASCII  and  EBCDIC  characters. 

All  I/O  operations  directed  to  an  ASCII  terminal  must  pass 
through  this  interface. 

^See  Section  D  of  this  Chapter  on  Data  Base  Management. 


16 


All  output  to  the  terminal  from  the  graphics  package 
is  broken  up  into  single  characters  and  placed  into  an  output 
array  named  LCHOUT,  which  is  dimensioned  80.  These  graphics 
package  output  characters  can  be  divided  into  three  groups: 
the  graphics  characters  that  are  interpreted  by  the  terminal, 
when  in  graphics  mode,  as  being  coordinates  to  which  the 
terminal's  cursor  is  to  be  moved  and/or  to  which  a  vector  is 
to  be  drawn;  the  control  characters  that  place  the  terminal 
in  alphanumeric  mode,  graphics  mode,  erases  the  screen,  rings 
the  bell,  etc.;  and  the  text  that  is  to  accompany  a  given  plot. 

In  the  GIFTS'  graphics  package,  as  with  all  similar 
packages,  the  graphics  characters,  that  is,  those  characters 
that  provide  screen  coordinates  to  the  terminal,  are  computed 
in  ASCII  Decimal  Equivalent  (ADE)  integers.  These  ADE  inte¬ 
gers,  relating  directly  to  ASCII  characters,  after  being  cal¬ 
culated,  are  placed  into  array  LCHOUT  for  output.  If  LCHOUT, 
containing  these  ADE  integers,  were  output  to  the  terminal, 
the  computer  system's  ASCII  interface  would  interpret  them 
as  being  EBCDIC,  resulting  in  improper  conversion  to  ASCII 
and  output  to  the  terminal.  Because  of  this,  it  is  necessary 
to  convert  the  ADE  integers  contained  in  LCHOUT  to  EBCDIC 
characters  before  output  to  the  terminal.  This  translation, 
an  well  as  the  output  to  the  terminal,  is  accomplished  by 
the  assembly  routine  WRTADE.  WRTADE  converts  the  array  of 
ADE  characters  to  EBCDIC  and  sends  them  to  the  terminal  with¬ 
out  a  carriage  return  being  added  to  the  end  of  the  output 
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array.  For  the  case  where  input  from  the  terminal  is  required 
by  the  graphics  package,  the  opposite  logic  applies.  Routine 
RDADE  reads  the  characters  from  the  terminal,  converts  them 
from  EBCDIC  to  ASCII  and  places  them  into  a  desired  array  for 
use  by  the  graphics  package.  More  detailed  documentation  on 
WRTADE  and  RDADE  can  be  found  in  the  listing  of  LIBR5A  in 
Appendix  H.  Since  the  graphics  characters  are  calculated  in 
ADE  integers  and  placed  into  the  output  array  in  that  form, 
it  is  necessary  that  all  other  characters  placed  into  the 
array  also  be  ADE  integers.  For  the  control  characters,  this 
presents  no  difficulties  since  they  are  already  defined  in 
the  graphics  package  in  ADE  form.  The  text  to  accompany  the 
plot,  however,  is  passed  to  the  graphics  package  as  EBCDIC 
characters  in  A4  format  (up  to  4  characters  per  word) .  Before 
the  text  can  be  placed  into  the  output  array,  it  must  first  be 
broken  up  into  individual  characters  and  converted  to  ADE 
integers.  This  is  accomplished  by  assembly  routine  TOADE. 
Additionally,  in  subroutine  CURSOR,  following  the  use  of 
RDADE,  it  is  necessary  to  translate  a  character  from  ADE  to 
EBCDIC  for  use  outside  the  Graphics  Package.  The  assembly 
routine  TOEBCD  is  used  for  this  purpose.  A  listing  of  both 
TOADE  and  TOEBCD  can  be  found  in  Appendix  H. 

2 .  Flushing  the  Graphics  Buffer  to  the  Terminal 

When  the  terminal  is  in  the  graphics  mode,  all  char¬ 
acters  received  are  interpreted  by  the  terminal  as  being 
either  control  or  graphics  characters.  If  interline  characters 
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are  added  to  the  end  of  the  graphics  output  buffer  when 
'flushed'  to  the  terminal,  they  may  be  interpreted  as  con¬ 
trol  characters  causing  the  terminal's  mode  to  be  modified, 
or  as  graphics  characters  causing  unintended  or  random 
vectors  to  be  drawn.  As  indicated  in  the  previous  section, 
subroutine  WRTADE  prevents  a  carriage  return  from  being  added 
to  the  end  of  the  output  buffer,  but  the  IBM  system  continues 
to  add  two  characters  to  the  end  of  the  buffer.  The  first  is 
the  control  character  DC3,  and  the  second  the  graphics  char¬ 
acter  DEL.  Since  these  characters  are  added  to  end  of  the 
output  buffer,  it  was  necessary  to  ensure  that  when  the  char¬ 
acters  are  received  by  the  terminal,  it  would  be  in  alpha¬ 
numeric  mode,  thus  preventing  their  interpretation  as  part 
of  the  intended  graphics  package  output.  This  was  accomplished 
by  placing  the  ADE  integer  31  (equivalent  to  the  ASCII  control 
character  US) ,  which  places  the  terminal  into  the  alphanumeric 
mode,  into  the  output  array,  as  the  last  character. 

As  a  result  of  placing  the  terminal  into  alphanumeric 
mode  at  the  end  of  each  buffer  flush,  it  was  necessary  to 
ensure  that  the  set  of  graphics  characters  describing  the 
coordinates  for  a  vector  not  be  split  between  buffers.  If 
they  are  split,  the  desired  results  may  not  be  obtained.  A 
coordinate  description,  in  ADE  form,  can  consist  of  up  to 
four  characters,  so  in  subroutine  PLTCHR,  which  computes  the 
ADE  integers  for  the  desired  coordinates,  a  check  is  made  to 
ensure  that  there  is  room  in  the  output  array  for  at  least 
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four  additional  characters.  If  there  is  not,  the  array  is 
flushed,  which  causes  the  terminal  to  be  left  in  alphanumeric 
mode.  After  this  flush,  and  before  PLTCHR  continues  to  cal¬ 
culate  the  new  coordinates,  the  control  character  GS  (ADE  29), 
which  causes  the  terminal  to  switch  to  graphics  mode,  is 
placed  into  the  output  array  followed  by  the  four  control 
characters  that  describe  the  graphic  cursor's  position  prior 
to  the  previous  flush.  It  is  necessary  to  provide  these  coor¬ 
dinates  because  the  first  vector  drawn  after  the  control  char¬ 
acter  GS  is  issued  to  the  terminal,  is  invisible.  PLTCHR  then 
continues  and  calculates  the  new  coordinates  and  causes  them 
to  be  placed  into  the  output  array. 

C.  THE  IBM  C CP/ CMS)  CHARACTER  MANIPULATION  PACKAGE 

The  modifications  necessary  to  the  Character  Manipulation 
Package  were  not  extensive  in  nature  and  were  mainly  related 
to  ensuring  that  the  characters  used  in  the  many  FORTRAN  data 
statements  were  in  EBCDIC  form.  In  addition  to  these  modi¬ 
fications,  extensive  use  was  made  of  five  assembly  routines 
provided  by  the  Interactive  Graphics  Engineering  Laboratory 
of  the  University  of  Arizona,  for  character  manipulation. 

The  routines  are  DECODE,  ENCODE,  DECOD,  BTD,  and  ENF.  A 
description  of  all  the  routines  making  up  the  IBM  (CP/CMS) 
Character  Manipulation  Package  can  be  found  in  Appendix  F 
and  a  listing  of  the  assembly  routines  can  be  found  in 
Appendix  H. 
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Of  importance  in  this  package  are  the  calls  to  system 
routines  for  the  date,  time  of  day,  and  CPU  time  used.  The 
routine  called  for  the  date  and  time  of  day  is  DATIME  (called 
in  subroutines  DATEP  and  TIMEP)  and  for  the  CPU  time  used  is 
SETIME  (called  by  subroutine  INITIO  of  the  Data  Base  Manage¬ 
ment  Package)  and  GETIME  (called  by  subroutine  SECOND).  If 
these  routines  are  not  available  on  other  systems,  appropriate 
substitutions  must  be  made. 

D.  THE  IBM  (CP/CMS)  DATA  BASE  MANAGEMENT  PACKAGE 

Since  the  modules  communicate  with  each  other  through  the 
UDB ,  it  is  of  the  utmost  importance  that  it  be  correct  and 
managed  properly.  In  addition,  it  is  important  that  in  the 
management  process,  that  the  data  base  disk  space  be  minimized. 
This  section  covers  the  management  of  the  UDB  on  the  IBM  with 
CP/CMS.  A  description  of  all  routines  used  in  the  IBM  (CP/CMS) 
Data  Base  Management  Package  can  be  found  in  Appendix  G,  and 
a  listing  of  the  assembly  routines  can  be  found  in  Appendix  H. 
1.  The  IBM  (CP/CMS)  Data  Base 

The  UDB  for  the  IBM  (CP/CMS)  version  is  identical  to 
that  of  the  other  versions  except  for  the  addition  of  one 
file,  which  will  be  covered  in  the  SPECIAL  SEQUENTIAL  DATA 
BASE  FILE  section  below.  The  UDB  consist  of  up  to  48  random 
access  and  9  sequential  files  that  are  managed  automatically 
by  GIFTS. 
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a.  The  Direct  (Random)  Access  Files 


The  48  unformatted  direct  access  UDB  files  used 
by  the  IBM  (CP/ CMS)  version  are  identical  to  those  used  by 
other  versions.  It  is  necessary  at  this  time  to  introduce 
some  GIFTS  terminology  in  regards  to  the  UDB. 

A  'logical  record’  is  the  smallest  unique  collec¬ 
tion  of  data  into  which  the  data  contained  in  a  file  may  be 
divided.  As  an  example,  all  the  data  pertaining  to  one  node 
in  the  UDB  file  with  the  file  type  PTS  make  a  'logical  record'. 
The  logical  record  size,  in  words,  is  determined  by  summing 
the  product  of  the  number  of  'integers'  in  the  logical  record 
times  the  number  of  machine  words  per  integer  and  the  number 
of  'reals'  in  the  logical  record  times  the  number  of  machine 
words  per  real  number.  Consider  again  the  UDB  file  with  the 
file  type  of  PTS.  It  has  10  integers  and  17  real  numbers  per 
logical  record.  For  single  precision,  the  IBM  uses  one  word 
for  both  integer  and  real  numbers,  and  for  double  precision, 
IBM  uses  one  word  for  integer  numbers  and  two  words  for  real 
numbers.  The  word  size  for  a  logical  record  in  the  PTS  file 
would  therefore  be  27  for  single  precision  and  44  for  double 
precis  ion. 

A  'physical  record'  is  the  collection  of  data 
that  must  be  read  from  or  written  to  a  file  with  a  single  I/O 
instruction.  It  may  be  made  up  of  any  integral  number  of 
logical  records.  The  number  of  logical  records  stored  in  a 
physical  record  of  a  file  is  termed  the  file's  'blocking 
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factor'.  The  UDB  file  type  PTS  has  a  blocking  factor  of  10, 
and  thus  a  physical  record  word  size  of  270  words  for  single 
precision  and  440  words  for  double  precision.  When  a  phys¬ 
ical  record  is  read  or  written  to  file  type  PTS,  information 
on  10  nodes  will  be  involved. 

It  is  the  physical  record  word  size  that  is  used 
in  the  FORTRAN  statement  DEFINE  FILE  to  define  the  random 
access  files.  The  physical  record  word  size  for  all  the  UDB 
file  types  can  be  found  in  Appendix  C.  Both  single  and  double 
precision  sizes  are  included  although  GIFTS  currently  is  only 
single  precision.  It  is  anticipated  that  a  double  precision 
version  will  be  available  in  the  near  future. 

The  file  name  assigned  to  these  random  access  UDB 
files  is  the  same  as  the  job  name  provided  to  GIFTS  by  the 
user  during  module  execution.  For  example,  if  the  user  were 
analyzing  a  pipe  joint,  he  may  provide  GIFTS  a  job  name 
PIPJOINT  (the  job  name,  like  the  file  name,  is  limited  to  8 
characters) ,  in  which  case  the  UDB  file  type  PTS  would  have 
the  file  identifier  'PIPJOINT  PTS  A'. 

b.  Sequential  Data  Base  Files 

Of  the  nine  sequential  files  in  the  UDB,  only 
five  will  be  discussed  here,  with  the  remaining  four  discussed 
under  the  heading  of  SPECIAL  SEQUENTIAL  DATA  BASE  FILES  below. 

These  sequential  UDB  files  do  not  require,  as 
with  the  direct  access  files,  a  specified  file  size.  The 
file  types  are  CFR,  DGT,  DYN,  HST,  and  SAV. 
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The  file  type  CFR  is  used  to  store  data  involved 
with  contours  used  in  module  RESULT.  File  type  DGT  is  used 
to  store  digitizer  information,  while  DYN  stores  information 
relating  to  modal  analysis,  with  HST  containing  information 
for  a  histogram  plot  in  transient  analysis.  File  SAV  is 
used  to  save  the  stiffness  matrix. 

These  files  are  automatically  created  by  the 
GIFTS  modules  and  are  given  a  file  name  equal  to  the  GIFTS 
j  ob  name . 

c.  Special  Sequential  Data  Base  Files 

These  files  are  placed  in  this  cateogry  because 
they  do  not  follow  the  naming  convention  of  other  UDB  files 
and  are  not  necessarily  created  by  the  GIFTS  modules. 

The  first  of  these  special  UDB  files  has  the  file 
type  SRC.  An  SRC  file  can  be  created  with  any  file  name,  by 
the  user,  via  the  text  editor  in  the  CMS  environment  and  will 
contain  a  list  of  GIFTS  commands  and  their  associated  data. 

The  commands  can  be  executed  from  an  interactive  module  via 
the  command  OLB  (On  Line  Batch) .  When  the  OLB  command  is 
executed  GIFTS  prompts  the  user  for  the  file  name  of  the  SRC 
file.  After  the  file  name  is  entered,  the  commands  contained 
in  the  file  are  read  and  executed  by  GIFTS.  For  more  informa¬ 
tion  on  the  SRC  file’s  use,  consult  the  GIFTS  User's  Reference 
Manual  [Ref.  1]. 

The  next  special  file  has  the  identifier  GIFTS5 
INF  and  resides  on  the  GIFTS  system's  disk  space.  This  file 
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contains  a  listing  of  all  GIFTS'  commands  with  instructions 
for  their  use.  The  file  is  accessed  from  interactive  modules 
via  the  command  HELP.  When  the  command  is  issued,  GIFTS 
prompts  the  user  for  the  command  for  which  he  desires  inform¬ 
ation.  After  this  is  entered,  GIFTS  opens  the  file,  locates 
the  desired  information,  and  displays  it  at  the  terminal  for 
the  user. 

The  last  two  special  files  are  GIFTS5  EST  and  GIFTS5 
ESX  which  generally  reside  on  the  user's  disk  space.  GIFTSS  EST 
contains  information  which  is  used  by  solution  module  OPTIM  to 
make  solution  time  estimates  for  the  solution  modules  STIFF, 
DECOM,  DEFL,  and  STRESS.  These  four  modules  perform  updates 
to  the  file  during  their  execution.  GIFTS  logic  is  such  that 
during  this  updating  procedure,  it  performs  both  read  and 
write  operations  to  GIFTS5  EST.  In  other  computer  systems  on 
which  GIFTS  is  operated,  this  is  accomplished  by  opening  one 
GIFTS5  EST  file  for  input  and  another  for  output,  on  the  same 
disk  space.  Since  the  IBM  system  does  not  allow  two  files  to 
exist  on  the  same  disk  space  with  the  same  identifier,  this 
presented  a  problem.  This  problem  was  solved  by  opening  file 
GIFTS5  EST  for  input,  but  having  output  directed  to  GIFTS5 
ESX.  This  is  accomplished  when  GIFTS  calls  for  the  opening 
of  GIFTSS  EST  for  output.  The  subroutine  that  opens  sequen¬ 
tial  files  for  output,  changes  the  file  type  from  EST  to  ESX. 
When  these  modules  complete  their  I/O  operations  on  these 
files,  and  the  files  are  closed,  GIFTSS  EST,  now  being 
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superseded  by  GIFTS5  ESX,  is  deleted  from  the  user's  disk 
space,  so  that  the  user  will  only  have  one  of  these  files 
present  on  his  disk  space.  When  the  next  GIFTS  module  is 
executed,  GIFTS5  ESX  is  renamed  GIFTS5  EST,  making  it  ready 
for  input.  If  the  user  executes  one  of  the  solution  modules 
without  GIFTS5  EST  or  GIFTS5  ESX  being  present  on  his  disk 
space,  GIFTS  will  use  the  GIFTS5  EST  file  on  the  GIFTS  system's 
disk  space  for  input  and  will  create  GIFTS5  ESX  on  the  user's 
disk  space  during  output. 

2.  Defining  the  Direct  Access  Files  and  GIFTS  Module 

I5MUDB-  -  - 

Before  unformatted  direct  access  I/O  operations  can 
occur,  the  direct  access  file  must  first  be  defined.  This  is 
accomplished  with  the  FORTRAN  statement: 

DEFINE  FILE  ISL  (INR, ISR,U, IV) , 

where:  ISL  is  the  logical  unit  number  assigned  to  the  file, 

INR  is  the  maximum  number  of  'physical  records' 
that  can  be  contained  in  the  file, 

ISR  is  the  'physical  record’  size  in  words, 

U  indicates  that  the  records  are  to  be  written 
and  read  without  format  control,  and 

IV  is  the  record  number  associated  variable  (not 
used  in  GIFTS  but  must  be  included  in  the 
statement) . 

In  all  the  versions  of  GIFTS  that  have  been  available, 
the  machine's  FORTRAN  allowed  ISL,  INR,  and  ISR  to  be  integer 
variables.  The  logics  and  structure  of  the  GIFTS  data  base 
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management  was  based  on  this.  This  fact  allowed  the  use  of 
one  DEFINE  FILE  statement,  located  in  subroutine  DEFIN  of 
LIBR5,  in  these  versions.  The  logical  unit  number  (ISL),  the 
'physical  record'  size  in  words  (ISR) ,  and  the  number  of 
'physical  records'  required  (INR),  were  simply  passed  as 
arguments  to  this  subroutine.  When  it  became  necessary  to 
increase  the  size  of  the  file,  that  is  increase  the  number 
of  records  allowed  in  the  file  (INR),  the  file  was  closed  via 
a  call  to  a  system  function  or  through  the  use  of  a  FORTRAN 
statement,  and  then  the  file  would  be  redefined  with  the  same 
value  for  ISR  and  the  increased  value  for  INR.  The  logical 
unit  number  (ISL)  for  the  file  could  change  as  the  file  was 
opened  and  closed. 

This  logic  presented  a  problem  for  the  IBM  (CP/CMS) 
version,  since  both  the  IBM  FORTRAN  G  and  FORTRAN  H- extended, 
available  at  the  Naval  Postgraduate  School,  do  not  allow  ISL, 
INR,  and  ISR  to  be  integer  variables.  They  must  be  integer 
constants.  Additionally,  since  there  was  no  way  to  close  a 
file  during  execution'7,  once  the  DEFINE  FILE  statement  was 
made  in  an  executing  program,  it  could  not  be  changed  in 
that  program  to  allow  for  file  growth. 

It  became  clear  that  a  DEFINE  FILE  statement  would  be 
required  for  each  direct  access  file.  For  this,  logical  unit 

7 

The  CMS  command  FINIS  only  closes  a  file  in  the  CMS  en¬ 
vironment,  not  in  the  FORTRAN  execution  environment  (IBCOM) . 
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numbers  50  through  98  were  used  and  the  'physical  record*  size, 
in  words,  was  calculated  as  described  in  the  preceding  section 
on  direct  access  files.  This  left  only  the  number  of  'physical 
records'  (INR)  to  be  entered,  and  as  the  only  undetermined 
quantity,  with  its  value  dependent  on  the  desire  to  conserve 
disk  space  and  to  ensure  that  the  user  would  not  be  unknowingly 
constrained  by  a  data  base  too  small  for  a  desired  analysis. 
Both  of  these  seemingly  opposite  requirements  were  met  through 
the  introduction  of  the  new  GIFTS  module  I3MUDB. 

Before  continuing  with  more  information  on  program 
IBMUDB ,  it  is  necessary  to  explain  some  facts  about  direct 
access  file  creation  on  the  IBM  system  and  about  some  addi¬ 
tional  GIFTS'  logic  and  structure. 

Consider  the  FORTRAN  statement: 

DEFINE  FILE  10  (100, 27, U, IV) . 

It  defines  a  direct  access,  unformatted  file  on  logical  unit 
10.  Each  'physical  record'  will  be  27  words  long  and  there 
may  be  up  to  100  'physical  records'  written  to  the  file. 

The  statement  itself  does  not  cause  the  creation  of  this 
file.  It  is  only  after  the  file  is  written  into  that  this 
occurs.  If  the  file  did  not  exist  prior  to  program  execu¬ 
tion,  and  only  5  records  are  written  to  the  file,  the  system 
will  write  those  5  records,  plus  fill  the  remaining  95 
records  with  zeros.  The  result  is  a  great  deal  of  wasted 
disk  space.  However,  if  the  file  existed  on  the  disk  space 
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prior  to  the  program  execution  containing  this  DEFINE  FILE 
statement,  there  could  be  a  different  result.  As  an  example, 
assume  that  the  file  in  question  was  created  by  a  previous 
program  execution  containing  the  statement: 

DEFINE  FILE  10  (1 , 27 ,U, IV) . 

This  is  similar  to  the  previous  DEFINE  FILE  statement  except 
that  only  one  record  can  be  written  Cot  read) ,  as  indicated 
by  a  value  of  1  for  INR.  When  the  program  containing  the 
DEFINE  FILE  statement  allowing  100  records  is  executed  and 
the  file  written  into,  only  those  records  written  will  be 
added  to  the  file.  As  an  example,  if  during  the  second  pro¬ 
gram's  execution,  the  same  five  records  are  written  to  the 
file,  only  those  five  records  will  be  written  to  the  disk, 
not  the  100  as  before,  thus  saving  disk  space.  It  can  be 
seen  that  this  method,  if  properly  used,  could  result  in  the 
conservation  of  disk  space  while  allowing  for  file  growth. 

It  is  now  necessary  to  discuss  some  important  facts 
about  GIFTS  and  its  data  base  management  logic.  Whenever 

g 

one  of  the  GIFTS  model  generation  modules  is  first  executed 
for  an  analysis,  it  checks  for  the  presence  of  the  data  base 
files  for  the  given  job  name,  and  if  they  are  present,  GIFTS 
calls  for  the  deletion  of  the  old  data  base  and  the  creation 
of  a  new  one.  If  the  data  base  for  an  analysis  was  created 

8Modules  BULKM ,  BULKS,  EDITM,  and  EDITS. 
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prior  to  the  execution  of  one  of  these  modules,  for  the  pur¬ 
pose  of  conserving  disk  space  and  allowing  for  file  growth, 
as  described  above,  its  intended  purpose  would  be  defeated 
if  it  were  deleted. 

The  new  GIFTS  module  IBMUDB  was  developed  to  create 
a  'dummy'  data  base  for  GIFTS  and  is  executed  prior  to  per¬ 
forming  an  analysis  on  the  IBM.  In  IBMUDB,  each  direct  access 
data  base  file  is  defined  with  its  respective  'physical  record' 
size,  in  words,  and  with  a  maximum  of  one  record.  Then,  in 
the  first  word  of  that  record,  the  integer  -999  is  written. 
Thus,  a  data  base  file  with  -999  in  the  first  word  of  the 
first  record  is  considered  a  'dummy'  data  base  file,  and 
through  the  modification  of  the  Data  Base  Management  Package 
of  LIBR5,  GIFTS  considers  a  'dummy'  file  not  to  be  present. 

A  listing  of  module  IBMUDB  can  be  found  in  Appendix  D. 

The  DEFINE  FILE  statements  executed  in  all  modules, 
except  IBMUDB,  are  located  in  subroutine  INITIO  of  the  Data 
Base  Management  Package  of  LIBR5.  In  these  statements,  each 
direct  access  data  base  file  is  defined  with  its  respective 
logical  unit  number  and  'physical  record'  size  in  words,  and 
with  a  maximum  number  of  records  of  1,000,000,  which  essen¬ 
tially  provides  the  user  unlimited  growth  for  the  data  base. 
The  actual  data  base  size  will  only  be  limited  by  the  user's 
disk  space  available. 
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3 .  Opening  of  the  Data  Base  Files 

On  the  IBM  system,  a  file  is  opened  automatically  when 

g 

an  I/O  operation  is  performed,  using  the  file's  logical  unit 
number.  If  the  logical  unit  number  has  not  been  associated 
with  a  file  identifier  by  the  user,  CMS  automatically  assigns 
an  identifier  based  on  the  logical  unit  number  used.  As  an 
example,  if  the  sequential  I/O  statement: 

WRITE  (29,100)  , 

were  executed  without  the  association,  CMS  would  assign  the 
identifier: 


FILE  FT29F001  A, 

which  tells  nothing  about  the  file  contents.  In  keeping  with 
the  original  structure  of  GIFTS,  the  opening  of  a  file  was  con¬ 
sidered  to  be  the  association  of  the  proper  file  identifier 
with  its  logical  unit  number. 

In  other  versions  of  GIFTS,  a  maximum  of  thirteen  files 
(ten  direct  access  and  three  sequential)  were  allowed  to  be 
open  at  any  given  time.  Generally,  logical  unit  numbers  1 
through  4  and  7  through  12  were  used  for  the  direct  access 
files  while  13  through  15  were  used  for  the  sequential  files. 
The  logical  unit  numbers  were  assigned  by  subroutine  SLTASN 


9 

For  direct  access  files  the  DEFINE  FILE  statement  must 
precede  the  I/O  operation.  Additionally,  if  the  operation 
is  for  input,  the  file  must  already  exist. 
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of  the  Data  Base  Management  Package.  When  necessary,  the 
logical  unit  number  would  be  released  by  the  closing  of  the 
file  and  then  the  freeing  of  the  number  by  subroutine  FRESLT 
in  LIBR1.  This  logic  works  provided  that  during  the  execution 
of  a  program,  a  logical  unit  number  could  be  used  for  more 
than  one  direct  access  file  identifier,  which  is  not  the  case 
for  the  IBM  system  with  FORTRAN  G  or  FORTRAN  H-extended.  On 
the  IBM,  once  a  logical  unit  number  is  used  for  a  given  direct 
access  file,  it  cannot  be  associated  with  any  other  file. 
Because  of  this,  in  the  IBM  (CP/CMS)  version,  each  UDB  file 
is  assigned  its  own  logical  unit  number.  Subroutine  FRESLT, 
which  was  in  LIBR1  and  thus  considered  a  machine  independent 
routine,  was  moved  to  LIBR5  and  made  a  'dummy'  routine,  that 
is,  it  was  changed  to  contain  no  executable  FORTRAN  statements. 
Subroutine  SLTASN  was  also  made  a  'dummy'  routine.  These  two 
routines  were  not  deleted  from  GIFTS  because  they  are  called 
by  routines  contained  in  the  machine  independent  portions  of 
GIFTS  and  it  was  desired  not  to  alter  these.  To  compensate 
for  the  void  left  by  making  SLTASN  a  'dummy'  routine,  subrou¬ 
tine  MANAGE  was  added  to  the  Data  Base  Management  Package. 

This  routine  relates  a  data  base  file  type  with  its  respec¬ 
tive  logical  unit  number.  It  will  return  the  logical  unit 
number  if  provided  with  the  file  type  or  the  file  type  if 
provided  with  the  logical  unit  number.  MANAGE  is  called  only 
by  routines  contained  in  the  Data  Base  Management  Package.  The 
logical  unit  numbers  for  each  of  the  data  base  files  can  be 
found  in  Appendix  C. 


All  the  data  base  files  are  opened,  that  is  the  data 
base  file  identifier  is  associated  with  its  respective  logical 
unit  number,  by  invoking  the  CMS  command  FILEDEF  during  program 
execution, ^  when  called  for  by  GIFTS.  For  direct  access  files, 
this  is  accomplished  in  subroutine  DEFIN.  Here  the  FILEDEF 
command  is  issued  and  has  the  form: 

FILEDEF  ISLDEF  DISK  XJOB  EXT8  A  (XTENT  1000000  DSORG  DA) 

where:  ISLDEF  is  a  double  word  real  variable  containing 

the  logical  unit  number, 

DISK  indicates  the  file  is  to  be  disk  resident, 

XJOB  is  a  double  word  real  variable  containing 
the  file  name, 

EXT8  is  a  double  word  real  variable  containing 
the  file  type, 

A  is  the  file  mode, 

XTENT  1000000  is  the  maximum  number  of  records 
in  the  extent  for  the  file,  and, 

DSORG  DA  indicates  that  the  data  set  organization 
is  direct  access . 

For  the  sequential  files,  the  statement: 

FILEDEF  ISLDEF  DISK  XJOB  EXT 8  A 

is  generally  used,  with  ISLDEF,  DISK,  XJOB,  EXT8 ,  and  A 
having  the  same  meaning  as  for  the  direct  access  FILEDEF. 

^This  is  accomplished  via  a  call  to  assembly  routine 
FRTCMX  discussed  in  Section  A  of  this  Chapter. 
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Three  subroutines,  OPENIF,  OPENOF,  and  OPENLP  are  used 
to  open  the  sequential  files.  Subroutine  OPENOF  opens  a  file 
for  output  and  uses  a  FILEDEF  statement  identical  to  the  one 
above.  Subroutine  OPENIF  is  used  to  open  a  sequential  file 
for  input.  In  this  routine,  if  the  file  to  be  opened  is  either 

GIFTSS  EST  or  GIFTS5  INF,^  a  check  is  made  to  determine  if 

the  file  exists  on  the  user's  disk,  if  it  does  not,  the  FILEDEF 

for  the  file  is  made  with  the  file  mode  set  to  C,  where  C  in¬ 

dicates  that  the  file  is  to  be  read  from  the  GIFTS  system's 
disk  space  to  which  the  user  is  linked.  Subroutine  OPENLP 
opens  a  sequential  file,  for  output,  that  may  be  spooled  to 
the  line  printer  by  GIFTS.  The  FILEDEF  used  here  is: 

FILEDEF  20  DISK  PRTNAM  PRNTFILE  A, 

where:  20  is  the  logical  unit  number, 

DISK  indicates  that  the  file  is  to  be  disk 

resident , 

PRTNAM  is  a  double  word  real  variable  containing 
the  file  name,  provided  by  the  user, 

PRNTFILE  is  the  file  type,  and, 

A  is  the  file  mode. 

4 .  Closing  Files 

Since  the  IBM  FORTRAN  G  and  FORTRAN  H- extended  do  not 
provide  FORTRAN  statements  that  allow  a  file  to  be  closed 

^See  section  entitled  Special  Sequential  Access  Files  in 
this  Chapter. 


during  execution,  the  IBM  automatically  closes  all  files  opened 
during  execution  when  the  execution  is  terminated.  This,  coupled 
with  the  fact  that  GIFTS  has  not  been  limited  as  to  the  number 
of  files  it  may  have  opened  during  execution  (see  the  previous 
section) ,  it  may  at  first  appear  that  there  is  no  need  to  be 
concerned  about  closing  a  file,  which  is  in  fact  the  case  in 
the  FORTRAN  execution  environment,  I3C0M.  However,  in  the  CMS 
environment,  in  order  to  rename  a  file,  it  must  be  inactive 
(closed).  There  is  a  CMS  command,  FINIS,  that  does  allow  for 
the  closing  of  a  file  in  the  CMS  environment.  This  command  is 
invoked  from  GIFTS  during  execution  via  a  call  to  FRTCMX  (see 
Section  A  of  this  Chapter)  in  subroutine  CLOSEF  of  the  Data 
Base  Management  Package  of  LIBR5 .  This  command  has  been  in¬ 
cluded  in  CLOSEF  for  the  express  purpose  of  allowing  a  file 
to  be  renamed,  which  will  be  discussed  later  in  this  Chapter. 

The  FINIS  command  issued  in  CLOSEF  has  the  form: 

FINIS  XJOB  EXT8  A, 

where  XJOB  and  EXT8  are  double  word  real  variables  containing 
the  file  name  and  file  type,  respectively,  and  A  is  the  file 
mode . 

There  is  an  additional  subroutine  called  by  GIFTS  to 
close  a  file.  It  is  subroutine  CLOSLP,  which  is  intended  to 
close  the  line  printer  file  and  spool  it  to  the  line  printer 
as  directed  by  the  user.  For  this  version,  the  system  was 
allowed  to  close  the  file  at  the  termination  of  module 
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execution.  When  the  subroutine  is  called,  it  will,  if  a  prin¬ 
ter  file  has  been  created,  prompt  the  user  if  he  desires  the 
file  to  be  spooled  to  the  line  printer  or  not.  In  either 
case,  the  file  will  remain  on  the  user's  disk  space  following 
execution  termination.  The  CMS  command  used  here  is: 

/ 

PRINT  PRTNAM  PRNTFILE  A, 

where:  PRTNAM  is  a  double  word  real  variable  containing 

the  file  name, 

PRNTFILE  is  the  file  type,  and 

A  is  the  file  mode. 

5 .  Deleting  Files 

Based  on  the  discussion  in  the  section  entitled 
DEFINING  THE  DIRECT  ACCESS  FILES  AND  GIFTS  MODULE  IBMUDB , 
earlier  in  this  Chapter,  it  is  obvious  that  deletion  of  a 
direct  access  data  base  file  would  defeat  the  logic  behind 
the  use  of  module  IBMUDB.  When  GIFTS  calls  subroutine  DELETE 
for  the  deletion  of  that  file,  rather  than  being  deleted,  it 
is  made  into  a  'dummy'  file  by  writing  -999  into  the  first 
word  of  the  first  record  of  the  file.  A  ’dummy'  file  will 
be  interpreted  by  the  Data  Base  Management  Package  as  not 
being  present.  Subroutine  DELETE  does  delete  sequential 
files  via  the  CMS  command  ERASE.  This  command  in  DELETE  has 
the  form: 

ERASE  XJOB  EXT 8  A 

where  XJOB,  EXT8  and  A  are  the  same  as  those  for  the  FINIS 
command  in  the  previous  section. 
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6 .  Renaming  Files 

During  the  execution  of  some  of  the  GIFTS  modules, 
temporary  files  are  created  and  later  renamed.  Specifically, 
the  data  base  file  types  PTX,  LDX,  and  SLX  are  created  and 
later  renamed  PTS ,  LDS ,  and  SLI,  respectively.  To  understand 
better  the  need  to  do  this,  and  the  logic  of  GIFTS  in  this 
matter,  consider  the  file  type  PTS.  This  file  contains  all 
the  information  pertaining  to  the  nodes  of  the  model  and  is 
first  created  during  model  generation.  The  nodes  are  entered 
in  the  file  in  numerical  order,  based  on  user  assigned  numbers. 
Solution  module  OPTIM  is  executed  to  optimize  the  node  number¬ 
ing  in  order  to  decrease  the  problem  'band  width'.  In  this 
process,  the  nodal  information  is  read  in  from  file  type  PTS, 
and  the  nodes  are  renumbered  and  output  in  numerical  order, 
based  on  the  optimization  renumbering,  to  file  type  PTX. 

Once  this  has  been  accomplished,  OPTIM  calls  for  file  type 
PTS,  of  the  current  job,  to  be  deleted  and  for  the  renaming 
of  file  type  PTX,  of  the  current  job,  to  be  renamed  to  file 
type  PTS.  The  renaming  is  accomplished  in  subroutine  RENAME 
of  the  Data  Base  Management  Package.  Since  direct  access 
files  are  not  actually  deleted  (see  the  preceding  section  on 
the  deleting  of  files),  but  rather  made  into  'dummy'  files, 
both  PTS  and  PTX  will  actually  always  be  present  on  the  disk. 

In  order  to  maintain  both  files  on  the  disk,  what  is  actually 
desired  is  an  exchange  of  names  between  PTS  and  PTX.  This  ex¬ 
change  of  names  is  accomplished  via  the  CMS  command  RENAME  with 
the  form: 


37 


RENAME  XJOB  PTS  A  XJOB  XXX  A 
RENAME  XJOB  PTX  A  XJOB  PTS  A 
RENAME  XJOB  XXX  A  XJOB  PTX  A 


Here,  the  file  with  the  identifier  XJOB  PTS  A  is  renamed  XJOB 
XXX  A,  then  file  XJOB  PTX  A  is  renamed  XJOB  PTS  A  and  finally, 
file  XJOB  XXX  A  is  renamed  XJOB  PTX  A.  This  'around  about' 
method  is  necessary  due  to  the  fact  that  no  two  files  can 
exist  on  a  CMS  managed  disk  with  the  same  identifier. 

In  subroutine  RENAME,  the  actual  RENAME  command  has 
the  form: 

RENAME  XJOB  EXT 81  A  XJOB  XXXXX  A 

RENAME  XJOB  EXT82  A  XJOB  EXT 81  A 

RENAME  XJOB  XXXXX  A  XJOB  EXT 8 2  A 


where:  XJOB 


EXT81 
and 
EXT  8  2 

XXXXX 


A 


is  a  double  word  real  variable  containing 
the  file  name, 


are  double  word  real  variables,  each  con¬ 
taining  one  of  the  file  types  to  be  renamed, 

is  the  intermediate  file  type  'XXX'  for 
the  name  exchange  process,  and 

is  the  file  mode. 


There  is  an  additional  complication  to  the  renaming 
process  resulting  from  the  inability  to  close  a  file  in  the 
FORTRAN  execution  environment  (IBCOM)  of  the  IBM  system. 
Because  of  this,  once  an  I/O  operation  has  been  performed  to 
a  direct  access  file  with  its  respective  logical  unit  number, 
that  logical  unit  number  cannot  be  changed.  Again  consider 
the  file  types  PTS  and  PTX.  Their  logical  unit  numbers  in 


38 


this  version  are  86  and  87  respectively.  If,  during  the  exe¬ 
cution  of  OPTIM,  after  the  files  have  been  renamed,  an  I/O 
operation  is  directed  at  file  type  PTS  (the  old  PTX  file) , 

logical  unit  number  87  (the  logical  unit  number  old  file  PTX) 

12 

must  be  used.  Since  subroutine  MANAGE  assigns  logical  unit 
numbers  based  on  file  types,  it  was  necessary  that  MANAGE  be 
aware  when  renaming  occurred,  so  that  the  renamed  files  would 
maintain  their  original  logical  unit  numbers.  This  was  accom 
plished  by  setting  a  switch,  passed  to  MANAGE  by  a  labeled 
common  block,  in  RENAME  for  the  files  that  are  renamed. 

It  was  also  necessary,  in  this  IBM  (CP/CMS)  version 
to  rename,  if  it  exists,  file  GIFTS5  ESX  A  to  GIFTS5  EST  A13 
at  the  start  of  module  execution.  This  is  accomplished  by 
invoking  the  CMS  RENAME  command  in  subroutine  INITIO  of  the 
Data  Base  Management  Package. 

7 .  Checking  for  a  File's  Presence 

GIFTS  utilizes  logical  function  PRESNT  of  the  Data 
Base  Management  Package  to  check  for  the  presence  of  a  UDB 
file  for  use  by  GIFTS.  PRESNT  first  determines  if  the  file 
is  present  on  the  user's  disk  space  via  the  CMS  command: 

STATE  XJOB  EXT 8  A. 


12 

13, 


See  the  Section  on 'the  Opening  of  Files  in  this  Chapter 


See  the  section  on  Special  Sequential  Data  Base  Files 
in  this  Chapter. 
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If  the  file  is  sequential  and  is  determined  to  exist  on  the 
user's  disk  space,  PRESNT  is  set  equal  to  TRUE,  if  not  on 
the  disk  space,  then  it  would  be  set  to  FALSE.  For  a  direct 
access  file,  if  the  file  exists  on  the  disk  space,  the  first 
word  of  the  first  record  is  read  and  if  it  does  not  equal 
-999,  PRESNT  is  set  equal  to  TRUE,  and  if  it  does  equal  -999, 
it  is  a  'dummy'  file  and  PRESNT  is  set  equal  to  FALSE.  If, 
on  the  other  hand,  the  file  is  direct  access  and  is  not  pre¬ 
sent  on  the  user's  disk  space,  PRESNT  stops  module  execution 
and  issues  the  message: 

UDB  FOR  JOB  XXXXXXXX  NOT  CREATED  VIA  IBMUDB. 
where  XXXXXXXX  will  be  the  job  name  provided  GIFTS  by  the  user. 

E.  THE  ADDED  ASSEMBLY  ROUTINES  (LIBR5A) 

For  convenience,  all  the  assembly  routines  for  this  version 
of  GIFTS  have  been  placed,  as  entry  points,  into  LIBRSA.  A 
listing  of  LIBR5A  can  be  found  in  Appendix  H. 

F.  IBM  (CP/ CMS)  INSTALLATION  INSTRUCTION 

The  installation  of  GIFTS  on  the  IBM  involves  the  trans¬ 
ferring  of  the  source  code  from  tape  to  the  CMS  disk  space, 
the  compiling  of  the  code,  its  loading  (linking)  and  execu¬ 
tion.  This  section  covers  the  steps  necessary  to  install 
GIFTS  on  the  IBM  system  at  the  Naval  Postgraduate  School. 
Installation  on  other  systems  should  vary  only  slightly. 
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The  GIFTS  source  code  is  received  from  the  University  of 
Arizona  on  an  unlabeled  nine  track  tape.  Accompanying  the 
tape  is  a  tape  directory  indicating  the  names  and  sizes  of 
the  files  and  the  order  in  which  they  were  written  onto  the 
tape . 

At  the  Naval  Postgraduate  School,  all  but  one  of  the  tape 
drives  are  attached  to  MVS  (Multiple  Virtual  System  -  the  batch 
operating  system).  Because  of  this,  it  has  proven  expedient 
to  first  transfer  the  files  to  an  MVS  disk  and  then  to  the  CMS 
disk  space.  Transfer  from  the  tape  to  the  MVS  disk  is  accom¬ 
plished  via  the  IBM  OS  Utility  IEBGENBR.  A  listing  of  the  file 

TAPE2MVS  JCL  (which  resides  on  the  GIFTS  disk  space),  containing 

14 

the  necessary  job  control  statements  for  the  transfer  via 
IEBGENER  can  be  found  in  Appendix  I.  These  job  control  state¬ 
ments  will  cause  the  first  37  files  on  the  tape  to  be  trans¬ 
ferred  to  disk  MVS004  with  the  respective  file  identifiers 
S3161.FILE1  through  S3161 . FILE37 .  To  transfer  the  files  to 
the  CMS  disk  space,  it  is  first  necessary  to  link  to  and 
access  MVS004.  This  is  accomplished  by  issuing  the  commands: 

CP  LINK  MVS  36B  36B  RR 
ACCESS  36B  E. 

Once  this  is  done,  the  files  can  be  transferred  to  CMS,  re¬ 
named  in  accordance  with  the  tape  directory,  and  packed,  by 

14 

These  job  control  statements  are  for  an  800  bpi  ASCII 

tape . 
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the  use  of  the  CMS  commands  listed  in  Appendix  I.  At  the 
Naval  Postgraduate  School,  these  commands  are  contained  in 
file  MVS2CMS  EXEC  (on  the  GIFTS  disk  space)  and  can  be  exe¬ 
cuted  by  issuing  the  command  MVS2CMS.  For  future  updates,  if 
the  number,  name,  or  order  of  the  files  to  be  transferred 
differ  from  those  now  listed  in  TAPE2MVS  JCL  and  MVS2CMS  EXEC, 
appropriate  changes  should  be  made. 

All  the  FORTRAN  program  modules  and  libraries,  except 
BULKM  and  BULKS,  can  be  compiled  with  the  IBM  FORTRAN  G  com¬ 
piler.  It  will  be  necessary,  due  to  variations  in  the  FORTRAN 
used,  to  compile  BULKM  and  BULKS  with  the  IBM  FORTRAN  H-extended 
compiler . 

Following  compiling,  the  program  modules  and  libraries  are 
ready  for  loading  and  execution.  This,  as  an  example,  can  be 
accomplished  for  program  module  BULKM,  via  the  CMS  commands: 

LOAD  BULKM  LIBR1  LIBR2  LIBR3  LIBR4  LIBRS  LIBR5A 
START . 

At  the  Naval  Postgraduate  School,  this  is  accomplished  by  the 
use  of  an  exec  file  (see  Appendix  H) . 

G.  IBM  (CP/ CMS)  USER  INSTRUCTIONS 

The  user's  instructions  for  the  IBM  (CP/CMS)  version  vary 
only  slightly  from  those  contained  in  the  GIFTS  User's  Refer¬ 
ence  Manual  [Ref.  1].  Appendix  J  contains  all  necessary 
additional  information  to  use  this  version  at  the  Naval  Post¬ 
graduate  School. 
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IV.  SUMMARY  AND  RECOMMENDATIONS 

In  summary,  the  IBM  (CP/ CMS)  version  of  GIFTS  developed 
is  a  self-contained,  portable  system  that  will  allow  easy 
installation  on  other  IBM  computers  with  the  CMS  operating 
system. 

It  is  recommended  that  additional  work  be  done,  at  the 
Naval  Postgraduate  School,  on  the  Graphics  Package  to  enable 
the  use  of  the  Tektronix  618  graphics  terminals  being  installed 
on  the  IBM  system. 
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■  V 


APPENDIX  A: 


DESCRIPTION  OF  GIFTS  MODULES 

IBM  DATA  BASE  INITIALIZATION 

IBMUDB  A  program  to  create  the  dummy ^  data  base  for  the 
IBM  (CP/ CMS)  version  of  GIFTS. 

MODEL  GENERATION  AND  EDITING 

BULKM  An  automated  three  dimensional  plate  and  shell 

model  generator.  It  is  suitable  for  large  contin 
uous  structures  that  can  be  easily  modeled  by 
repetitious  generation  of  points  and  elements. 

BULKS  A  three  dimensional  solid  model  generator.  One 

may  ask  for  the  display  of  the  edges,  and  may  add 
and  display  selected  point  and  element  slices. 

EDITM  Designed  to  update  and  correct  BULKM  models, 

although  it  can  be  used  to  generate  simple  models 
and  ones  too  complex  for  BULKM. 

EDITS  A  three  dimensional  solid  mesh  editor.  It  may  be 
used  to  update  or  correct  BULKS  models,  or  to  gen 
erate  simple  models  and  those  too  complex  for 
BULKS. 

^See  Chapter  III,  Section  D,  Subsection  2. 


LOAD  AND 
BULKF 


BULKLB 


LOADS 


EDITLB 


BOUNDARY  CONDITION  GENERATION,  DISPLAY  AND  EDITING 
Suppress  those  freedoms  which  the  generated  model 
cannot  support,  thereby  relieving  the  user  of  the 
necessity  of  suppressing  all  superfluous  freedoms 
by  hand. 

The  bulk  load  and  boundary  condition  generator 
designed  to  apply  loads  to  models  generated  with 
BULKM.  It  may  be  used  to  apply  distributed  line 
and  surface  loads  and  masses,  prescribed  displace¬ 
ments  along  lines  and  surfaces,  and  inertial  loads. 
Temperatures  may  also  be  applied  to  lines  and 
surfaces . 

The  load  and  boundary  condition  generator  for 
solid  models.  Loads  may  be  distributed  on  lines 
or  surfaces.  Loads  and  boundary  conditions  may 
be  displayed  on  point  slices. 

A  display  and  edit  routine  intended  to  provide 
local  modification  capability  to  loads  and  bound¬ 
ary  conditions  applied  by  BULKLB.  It  may  also  be 
used  to  generate  simple  loading  on  models,  or 
loading  on  models  not  generated  with  BULKM.  Tem¬ 
peratures  may  also  be  applied  to  elements.  After 
DEFL  has  been  run,  the  thermal  and  combined  loads 
may  be  examined. 
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GENERAL  PURPOSE  COMPUTATIONAL  AND  RESULT  DISPLAY  MODULES 


OPTIM 

STIFF 

SAVEK 

PRINT 

DECOM 

DEFL 


STRESS 

RESULT 

RES  I  DU 


Band  width  optimization  program.  OPTIM  may  be 
called  several  times  in  a  row,  until  the  best 
node  numbering  scheme  has  been  achieved. 
Computation  of  element  stiffness  matrices  and 
their  assembly  into  the  master  stiffness  matrix. 
This  program  saves  the  newly  computed  stiffness 
matrix. 

Program  used  to  print  out  parts  of  the  stiffness 
matrix  and  directory  for  specified  GIFTS  models. 
Introduces  kinematic  boundary  conditions,  and 
decomposes  the  stiffness  matrix  using  the  Cholesky 
method . 

Computation  of  the  deflections  from  the  current 
loading  conditions  and  the  decomposed  stiffness 
matrix.  If  temperatures  are  present,  thermal 
forces  will  be  calculated  and  added  to  the  current 
applied  loads  before  solution. 

Computation  of  element  stresses  based  on  current 
deflect  ions . 

Result  display.  The  program  displays  deflections 
and  stresses.  It  has  many  options  that  may  be 
used,  at  the  discretion  of  the  user,  to  transform 
the  results  for  optimum  comprehension. 

This  program  computes  the  residual  forces  on  a 
structure  solved  by  the  GIFTS  solution  programs. 
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THE  GIFTS  NATURAL  VIBRATION  PACKAGE 

AUTOL  Used  to  generate  starting  loads  for  the  subspace 
iteration  to  compute  natural  modes  of  vibration. 

SUBS  Performs  a  single  subspace  iteration  to  determine 

the  model's  natural  modes.  It  must  be  repeated  as 
many  times  as  necessary  to  obtain  convergence  to 
the  desired  extent. 

THE  GIFTS  TRANSIENT  RESPONSE  PACKAGE 

TRAN1  Used  to  specify  the  time  step  to  be  used  in  the 
integration  process  and  is  to  be  run  on  a  tran¬ 
sient  response  model  immediately  after  stiffness 
assembly . 

TRAN2  Computes  the  displacement  matrix  for  time  T  and  is 
run  after  TRAN1  and  DECOM. 

TRANS  Maintains  and  plots  histograms  of  the  displace¬ 
ments  of  up  to  four  different  freedoms. 

THE  GIFTS  CONSTRAINED  SUBSTRUCTURING  PACKAGE 

DEFCS  Program  to  define  a  constrained  substructure's 
(COSUB)  boundaries  and  external  nodes. 

REDCS  This  program  generates  the  reduced  stiffness  and 
loads  matrices  necessary  for  assembly  of  the 
'COSUB'  in  the  main  analysis,  as  well  as  the  trans¬ 
formation  matrices  necessary  for  local  analysis. 
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LOCAL  This  program  performs  local  analysis  of  selected 
' COSUB '  models  from  a  major  analysis. 

THE  GIFTS  LIBRARIES 

LIBR1 

LIBR2 

LIBR3 

LIBR4  Commonly  used  machine  independent  subroutines  and 
functions . 

LIBR5  Machine  dependent  FORTRAN  subroutines  and  functions 
used  for  graphics,  character  manipulation  and  data 
base  management. 

LIBRD5A  Collection  of  CP/CMS  assembler  routines  used  by 
LIBR5  of  the  IBM  (CP/CMS)  version. 
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APPENDIX  B: 


SUMMARY  OF  CMS  COMMANDS  USED 

COMMANDS  USED  IN  PROGRAM  PREPARATION 

EDIT  Used  to  invoke  the  VM  system  product  editor  to 

create  or  modify  a  CMS  disk  file. 

COPYFILE  Used  to  copy  CMS  disk  files  according  to  given 

specifications.  Used  in  GIFTS  implementation  to 
'pack'  FORTRAN  source  code  to  conserve  disk  space. 

F0RTG1  Used  to  compile  FORTRAN  source  code  using  the  G1 
compiler . 

FORTHX  Used  to  compile  FORTRAN  source  code  using  the 
H-extended  compiler. 

TXTLIB  Used  to  generate  and  modify  TEXT  libraries. 

LOAD  Used  to  bring  TEXT  files  into  storage  for 

execution. 

START  Used  to  begin  execution  of  programs  previously 

loaded  into  storage. 

COMMANDS  USED  IN  GIFTS  FOR  FILE  MANIPULATION 

ERASE  Used  to  delete  CMS  disk  files. 

FILEDEF  Used  to  relate  logical  unit  numbers,  devices 

and  files. 

FINIS  Used  to  close  files  in  the  CMS  environment. 
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PRINT 


RENAME 

STATE 


Used  to  spool  a  specified  CMS  file  to  the  virtual 
printer . 

Used  to  change  the  names  of  CMS  files. 

Used  to  verify  the  existence  of  CMS  disk  files. 


SO 


APPENDIX  C: 


THE  UNIFIED  DATA  BASE  FOR  THE  IBM 


SEQUENTIAL  DATA  BASE  FILES 


FILE 

TYPE 

LOGICAL 

UNIT  NUMBER 

CFR 

27 

DGT 

23 

DYN 

28 

HST 

25 

SAV 

24 

SPECIAL  SEQUENTIAL 

DATA  BASE  FILES 

FILE  TYPE  OR 
IDENTIFIER 

LOGICAL 

UNIT  NUMBER 

SRC 

26 

GIFTS 5 

INF 

21 

GIFTS  5 

EST 

22 

GIFTS  5 

ESX 

29 
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THE  RANDOM  ACCESS  FILES 


FILE 

TYPE 

NUMBER 

OF 

INTEGERS 

NUMBER 

OF 

REALS 

BLOCKING 

FACTOR 

IBM 

SP 

WORDS 

IBM 

DP 

WORDS 

LOGICAL 

UNIT 

NUMBER 

CDN 

4 

180 

1 

184 

364 

51 

CEE 

4 

324 

1 

328 

652 

56 

CLD 

4 

180 

1 

184 

364 

52 

DNH 

0 

6 

10 

60 

120 

64 

DNI 

4 

180 

1 

184 

364 

53 

DNS 

0 

8 

10 

80 

160 

65 

DNT 

2 

72 

1 

74 

146 

75 

ELD 

6 

32 

5 

190 

350 

77 

ELS 

0 

12 

10 

120 

240 

78 

ELT 

25 

10 

10 

350 

450 

79 

FIL 

5 

1 

1 

6 

7 

98 

GRD 

43 

10 

5 

265 

315 

80 

I  NT 

5 

0 

10 

50 

50 

81 

KEE 

4 

324 

1 

328 

652 

57 

LD2 

0 

8 

10 

80 

160 

66 

LDC 

0 

8 

10 

80 

160 

67 

LDI 

4 

180 

1 

184 

364 

54 

LDS 

0 

8 

10 

80 

160 

68 

LDT 

2 

72 

1 

74 

146 

76 

LDX 

0 

8 

10 

80 

160 

69 

LIN 

31 

9 

10 

400 

490 

82 

MAT 

5 

11 

5 

80 

135 

72 

52 


I'  FILE 

|  TYPE 

NUMBER 

OF 

INTEGERS 

NUMBER 

OF 

REALS 

BLOCKING 

FACTOR 

IBM 

SP 

WORDS 

IBM 

DP 

WORDS 

LOGICAL 

UNIT 

NUMBER 

I  MEE 

4 

324 

1 

328 

652 

58 

1,  OPO 

2 

0 

40 

80 

80 

73 

i-  OP  I 

4 

0 

40 

160 

160 

83 

I  OP  2 

2 

0 

40 

80 

80 

74 

:  OPS 

I 

0 

40 

40 

40 

84 

PAR 

25 

0 

1 

25 

25 

97 

PLD 

6 

8 

10 

140 

220 

85 

PTS 

10 

17 

10 

270 

440 

86 

PTX 

10 

17 

10 

270 

440 

87 

RES 

0 

8 

10 

SO 

160 

70 

SDY 

42 

0 

s 

210 

210 

88 

SD2 

21 

0 

5 

105 

105 

89 

SLD 

129 

9 

1 

138 

147 

90 

SLI 

18 

0 

10 

180 

180 

91 

SLX 

18 

0 

10 

180 

180 

92 

STC 

k- 

4 

324 

1 

328 

652 

59 

STF 

4 

324 

1 

328 

652 

60 

!  STR 

f.’ 

0 

8 

10 

80 

160 

71 

!  SUR 

■  1 

4 

26 

5 

150 

280 

93 

;  tde 

*  # 

4 

324 

1 

328 

652 

61 

V  .  TEM 

4 

324 

1 

328 

652 

62 

THS 

6 

15 

5 

105 

180 

94 

TIE 

4 

324 

1 

328 

6S2 

6  3 
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FILE 

TYPE 

NUMBER 

OF 

INTEGERS 

NUMBER 

OF 

REALS 

BLOCKING 

FACTOR 

IBM 

SP 

WORDS 

IBM 

DP 

WORDS 

LOGICAL 

UNIT 

NUMBER 

TLD 

0 

84 

5 

420 

840 

95 

TMP 

0 

28 

5 

140 

280 

96 

UGC 

4 

180 

1 

184 

364 

55 
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APPENDIX  E: 


THE  IBM  (CP/CMS)  GRAPHICS  PACKAGE  SUBROUTINES 
(*  indicates  a  modified  or  added  subroutine) 


ANMODE 

CURSOR  * 


DINIT 


DRAW 

FLUSH  * 


Places  the  Tektronix  4000  series  graphics  terminal 
into  the  alphanumeric  mode. 

Turns  on  the  graphics  cursor,  and  reads  back  the 
x  and  y  coordinates  of  the  cursor  position  when  a 
character  is  struck  on  the  key  board.  It  also 
returns  the  value  of  the  character  struck.  This 
subroutine  calls  assembly  routine  RDADE  for  the 
input  operation  and  TOEBCD  for  conversion  of  the 
character  to  EBCDIC. 

This  subroutine  clears  the  terminal  screen  and 
positions  the  graphics  cursor  at  C0,0)  in  the 
viewing  area. 

Draws  a  visible  line  from  the  current  beam  posi¬ 
tion  to  the  absolute  coordinates  provided. 

This  subroutine  dumps  the  graphics  output  array  to 
the  terminal  and  insures  that  the  last  character 
in  the  array  is  US,  which  places  the  terminal  into 
alphanumeric  mode  preventing  the  interpretation  of 
interline  characters,  sent  by  the  IBM  system,  as 
graphics  characters.  Assembly  routine  WRTADE  is 
used  to  dump  the  buffer. 
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,i  »i»«  tv 


INTERP 

LINA 


LINE 


MOVE 


OFFSET 


PLTCHR  * 


This  function  linearly  interpolates  point  coor¬ 
dinates  for  graphics  output. 

This  subroutine  will  draw  an  invisible  or  visible 
line,  as  directed,  from  the  current  graphics  cursor 
position  to  the  absolute  coordinates  provided. 

This  subroutine  will  draw  an  invisible  or  visible 
line,  as  directed,  from  the  current  graphics  cursor 
position  to  the  absolute  coordinates  provided. 
Subroutine  that  invisibly  moves  the  terminal's 
graphics  cursor  to  the  absolute  screen  coordinates 
provided. 

This  subroutine  switches  the  Graphics  Package 
between  the  800  x  800  main  viewing  area  and  the 
800  x  223  offset  viewing  area. 

This  subroutine  computes,  and  outputs,  the  graphic 
control  characters  necessary  to  draw  a  line  from 
the  current  beam  position  to  the  absolute  screen 
coordinates  provided.  It  will  send  the  minimum 
number  of  characters  needed,  from  one  to  four.  If 
the  output  array  does  not  have  room  for  at  least 
four  characters,  it  is  flushed  to  the  terminal. 
Following  the  flush,  the  terminal  is  placed  back 
into  graphics  mode  and  the  cursor  moved  back  to 
its  position  prior  to  the  flush. 
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PUTCHR 


SETPT 

TABLET  * 


TBELL 
TERASE 
TEXT  * 


THOME 

TINITT  * 


This  subroutine  adds  characters  to  the  output 
array.  If  number  of  characters  in  the  array 
reaches  NCHMAX,  the  array  is  flushed. 

This  subroutine  invisibly  positions  the  graphics 
beam  to  the  absolute  screen  coordinates  provided. 
This  subroutine  reads  one  point  from  the  digit¬ 
izing  tablet.  It  is  currently  inactive  in  this 
version. 

Rings  the  bell  on  the  terminal. 

Erases  the  terminal  screen. 

This  subroutine  outputs  characters  from  a  provided 
array  to  the  screen,  starting  at  the  current  alpha¬ 
numeric  cursor  position.  The  text  will  be  clipped 
at  the  edges  of  the  screen.  Assembly  routine 
TOADE  is  used  to  unpack  the  text  and  convert  it 
to  ADE. 

This  subroutine  moves  the  graphics  cursor  to  the 
home  position,  and  switches  the  terminal  to  alpha¬ 
numeric  mode. 

This  subroutine  initializes  the  Graphics  Package, 
clears  the  terminal  screen,  and  positions  the 
graphics  cursor  at  (0,0)  in  the  main  viewing  area. 
NCHMAX  is  set  equal  to  79  here. 
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TWAIT 


This  subroutine  causes  the  program  to  wait  for  a 
given  number  of  seconds.  This  is  accomplished  in 
this  version  by  the  output  of  a  string  of  non¬ 
interfering  characters  to  the  terminal. 

WRTADE  *  This  assembly  routine  converts  an  array  of  ADE 
characters  to  EBCDIC  and  sends  them  to  the  ter¬ 
minal  with  the  interline  characters  suppressed. 
WRTADE  is  an  entry  point  in  LIBR5A. 

RDADE  *  This  assembly  routine  reads  characters  from  the 
terminal,  converts  them  from  EBCDIC  to  ADE,  and 
places  them  into  a  specified  array.  RDADE  is  an 
entry  point  in  LIBR5A. 

TOADE  *  This  assembly  routine  converts  a  string  of  con¬ 
secutive  EBCDIC  character  into  ADE  characters  and 
puts  them  into  consecutive  elements  (right  justi¬ 
fied)  of  a  full  word  array.  TOADE  is  an  entry 
point  in  LIBR5A. 

TOEBCD  *  This  assembly  routine  converts  a  string  of  con¬ 
secutive  ADE  character  into  EBCDIC  characters  and 
puts  them  into  consecutive  elements  (right  justi¬ 
fied)  of  a  full  word  array.  TOEBCD  is  an  entry 
point  in  LIBR5A. 
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APPENDIX  F: 


THE  IBM  (CP/CMS)  CHARACTER  MANIPULATION  PACKAGE  SUBROUTINES 
(*  indicates  modified  or  added  subroutines) 

DATEP  *  This  subroutine  calls  IBM  Operating  System  function 
DATIME  for  the  date  and  converts  it  into  3A4  format 

ENI  *  This  subroutine  encodes  an  integer  into  a  floating 
point  variable,  left -justified  and  blank  filled, 
and  returns  the  floating  point  variable  and  the 
number  of  characters  it  contains. 

FREAD  *  This  subroutine  controls  interactive  I/O  operations 
with  the  user  via  the  terminal. 

FREAD2  *  This  subroutine  controls  interactive  I/O  operations 
with  the  user  via  the  terminal  or  digitizing  tablet 

INCCHR  *  This  subroutine  takes  a  single  character,  left- 
justified  and  blank  filled,  and  increments  it  by 
one . 

INCHAR  *  This  logical  function  reads  a  line  from  the  user's 
terminal  or  steering  file  as  directed  by  subroutine 
FREAD . 

INCHR2  *  This  logical  function  reads  a  line  from  the  user's 
terminal,  steering  file,  or  digitizing  tablet  as 
directed  by  subroutine  FREAD2. 
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INCNM  *  This  subroutine  takes  an  alphanumeric  eight  char¬ 
acter  name  and  increments  the  numeric  characters 
in  the  name  by  a  specified  amount.  Calls  assembly 


routine  BTD. 

INIHVL  *  This  subroutine  initializes  the  hardware  value 
list  for  the  computer  hardware  being  used. 

INMENU  *  This  subroutine  reads  an  input  line  from  the 
tablet  menu. 

NUMCHR  *  This  subroutine  counts  the  number  of  non-blank 
characters  in  a  single  alphanumeric  name. 

PAKAL  *  This  subroutine  packs  alphanumerical  information 
into  a  single  word  in  A4  format.  Makes  a  call  to 
assembly  routine  ENCODE  for  this. 

PERCNT  *  This  subroutine  encodes  an  integer  followed  by  a 
’ % ’  sign  into  a  floating  point  variable  and  then 
passes  it  to  subroutine  TEXT  of  the  Graphics  Pack¬ 
age  for  inclusion  in  a  plot.  A  call  is  made  to 
assembly  routines  DECODE  and  ENCODE  to  aid  in  the 
process  . 

SECOND  *  This  subroutine  returns  the  elapsed  CPU  time  in 
seconds.  CPU  time  is  obtained  via  a  call  to  the 
system  routine  GETIME. 

TIMEP  *  This  subroutine  gets  the  current  time  of  day  from 
the  operating  system,  via  a  call  to  DATIME,  and 
reformats  it  to  3A4  format. 


UPKAL 


DECODE  * 


ENCODE  * 


DECOD  * 


BTD 


This  subroutine  unpacks  text  in  A4  format  into  a 
four  word  array  with  one  character  per  word,  right 
justified  and  zero  (null)  filled.  UPKAL  calls 
assembly  routine  DECOD  for  this. 

This  added  assembly  routine  unpacks  a  string  of 
characters  (4  per  word)  into  a  four  word  array 
with  each  word  containing  one  left  justified 
character.  DECODE  is  an  entry  point  in  LIBR5A. 
This  added  assembly  routine  packs  a  string  of 
characters  contained  in  single  character  words, 
into  a  single  word.  ENCODE  is  an  entry  point  in 
LIBR5A. 

This  added  assembly  routine  unpacks  the  characters 
(maximum  of  4)  contained  in  a  single  word  into 
four  single  character  words,  with  the  characters 
right  justified  and  the  word  padded  with  zeroes 
(nulls) .  DECOD  is  an  entry  point  in  LIBR5A. 

This  added  assembly  routine  transforms  an  integer 
into  a  string  of  alphanumeric  characters.  The 
string  is  right  justified  with  the  rest  of  the 
string  filled  with  a  character  provided  by  the 
user.  It  additionally  returns  the  number  of 
characters  in  the  string.  BTD  is  an  entry  point 
in  LIBR5A. 


ENF  *  This  assembly  routine  replaces  a  FORTRAN  routine. 

It  translates  an  array  in  3A4  format  into  the 
floating  point  format  1PE10.3.  ENF  is  an  entry 
point  in  LIBR5A. 
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APPENDIX  G: 


THE  IBM 


CLOSEF  * 


CLOSLP  * 


DEFIN  * 


DELETE  * 


INITIO  * 


(CP/CMS  DATA  BASE  MANAGEMENT  PACKAGE  SUBROUTINES 
(*  indicates  a  modified  or  added  subroutine) 

This  subroutine  closes  an  active  file  in  the  CMS 
environment  via  the  CMS  command  FINIS.  In  addi¬ 
tion,  if  the  file  being  closed  is  GIFTSS  ESX,  this 
subroutine  calls  for  the  deletion  of  GIFTS5  EST. 
This  subroutine  spools  to  the  line  printer,  if 
directed  by  the  user,  the  line  printer  file  via 
the  CMS  command  PRINT. 

This  subroutine  associates  direct,  access  file 
identifiers  with  their  respective  logical  unit 
numbers  via  the  CMS  command  FILEDEF.  It  will  also 
zero,  or  expand,  a  direct  access  UDB  file  as 
directed. 

This  subroutine  makes  direct  access  UDB  files  into 
'dummy'  files  and  deletes  sequential  UDB  files  via 
the  CMS  command  ERASE. 

This  routine  initializes  the  logical  unit  numbers 
for  the  direct  access  UDB  files,  defines  all 
direct  access  UDB  files,  turns  on  the  IBM  CPU  tim¬ 
ing  via  a  call  to  routine  SETIME,  and  the  current 
GIFTS  version  number.  Additionally,  if  file 
GIFTS5  ESX  exists,  it  is  renamed  GIFTSS  EST. 


INRA 


OPENIF  * 

OPENLP  * 

OPENOF  * 

OUTRA 

PRES NT  * 


This  subroutine  performs  all  input  from  the  direct 
access  UDB  files. 

This  subroutine  opens  a  specified  sequential  file 
for  input  by  associating  the  file  identifier  with 
its  respective  logical  unit  number  via  the  CMS 
command  FILEDEF.  If  the  file  is  GIFTSS  INF  or 
GIFTSS  EST  and  does  not  exist  on  the  user's  disk 
space,  it  is  specified  as  being  on  the  GIFTS 
system's  disk  space. 

This  subroutine  sets  the  line  printer  file  logical 
unit  number  and  associates  the  file  identifier, 
provided  by  the  user,  with  this  logical  unit 
number  via  the  CMS  command  FILEDEF. 

This  subroutine  opens  a  specified  sequential  file 
for  output  by  associating  the  file  identifier 
with  its  respective  logical  unit  number  via  the 
CMS  command  FILEDEF.  If  the  file  to  be  opened  is 
GIFTS5  EST,  file  GIFTS5  ESX  is  opened  in  its  place. 
This  subroutine  performs  all  output  to  the  direct 
access  UDB  files. 

This  logical  function  checks  for  the  presence  of 
a  UDB  file.  If  the  file  is  sequential  and  not 
present,  PRESNT  is  set  equal  to  false,  and  if  it 
is  present,  PRESNT  is  set  equal  to  true.  If  the 
file  is  direct  access,  present  on  the  user's  disk 


67 


RENAME  * 

MANAGE  * 

SLTASN  * 
FRESH  * 

FRTCMX  * 


space,  and  a  ’dummy*  file,  PRESNT  is  set  equal  to 
false.  And  if  on  the  user's  disk  space  and  not  a 
'dummy'  file,  PRESNT  is  set  equal  to  true.  If  the 
file  is  direct  access  and  is  not  present  on  the 
user's  disk  space,  program  module  execution  is 
terminated. 

This  subroutine  uses  the  CMS  command  RENAME  to 
effect  the  exchange  of  names  between  two  UDB  files. 
When  renaming  occurs,  it  also  sets  a  switch  to 
indicate  to  subroutine  MANAGE  that  the  renaming 
has  taken  place. 

This  subroutine  will  assign  a  logical  unit  number, 
if  provided  with  the  UDB  file  type,  or  the  UDB 
file  type,  if  provided  with  the  logical  unit 
number.  If  a  file  has  been  renamed,  MANAGE  will 
relate  the  old  logical  unit  number  with  the  new 
file  type. 

For  this  version,  SLTASN  is  a  dummy  routine. 

This  subroutine  was  moved  from  LIBR1  for  this 
version  and  is  a  dummy  routine. 

This  assembly  routine  allows  CMS  commands  to  be 
invoked  from  the  executing  program  module. 

FRTCMX  is  an  entry  point  in  LIBR5A. 
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CONVRT  * 


An  assembly  routine  used  to  convert  a  four  byte 
integer  logical  unit  number  into  an  eight  byte 
real  number.  It  is  used  in  passing  information 
on  the  logical  unit  number  to  FRTCMX  for  the  exe¬ 
cution  of  CMS  commands  requiring  the  number. 
CONVRT  is  an  entry  point  in  LIBRSA. 
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APPENDIX  H:  LISTING  OF  THE  IBM  (CP/CMS)  ASSEMBLY  ROUTINES 
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APPENDIX  I:  SCME  IBM  INSTALLATION  TOOLS 


FILE  TAPE2MVS  JCL 


/ /HUNDIEYI 
//XX  PROC 
//  EXEC  PGM 
//SYSPRINT 
//SYSIN  DO 
//SYSUTI  no 
//  OISP* 
//  OCB  =  ( 
//SYSUT2  DO 
//  DISP* 
//  CCB=< 
//  CSN=S 
//  PeNO 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  FXFC  XX, 
//  EX*C  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXPC  XX, 
//  EXEC  XX, 
//  EXFC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXPC  XX. 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 
//  EXEC  XX, 


JOB  (3161,0020  ),  'R.  HUNDLEY  SMC  2436 « ,CL ASS*0 

•IEBGENER 
OD  DUMMY 
OUMMY 

UNIT =3400-4, V0L*$FR*GIFTS2» 

(OLD,  PASS),  LAB  EL  =  (  &EN.RLP,  ,  IN), 

RECFM=F8 ,LRECL=80,BLKSlZE*l600 ,0FN*2 , OPTCD*Q) 
UN  I T  =  33  50 »  VOL  =S  ER*M VS004  » 

( NEW , KEE  P),SpACE=(CYL,(l,l))f 
PECEM=FB , LRECL =80,BLKSIZE=6400I , 

3161. SEN AM6 


FN*1 » FNA  ME* 
FN*2 , FNA  ME* 
EN*3,FNA  ME* 
FN  =  4» FNA ME* 
FN  *5,  ENA  ME* 
FN=6 , FNA ME* 
FN*7, FNA ME* 
EN*8 ,F  NA  ME* 
FN*9»  ENA  ME* 
EN*1 0 ,  FNAME 
EN*11,FNAME 
FN  =  12,  ENAME 
EN*13,  FNAME 
FN*14, FNAME 
FN*15,  FNAME 
FN*16,  FNAME 
EN=17, FNAME 
FN*  18,  FNAME 
FN*L9,  FNAME 
FN  =  20,  FNAME 
FN=21, FNAME 
FN*22, FNAME 
FN*23,  FNAMF 
FN*24, FNAME 
FN=25, FNAME 
FN*26 ,  FNAME 
FN=27, FNAME 
FN*28,  FNAME 
FN=29, FNAME 
FN*30,  FNAME 
FN*3  1 ,  FNAME 
FN*32,  FNAME 
FN*33, FNAME 
FN*34,  FNAME 
FN*3 5  ,  FNAME 
FN*36, FNAME 
FN*37, FNAME 


FI  L  El 
FILE2 
FILE3 
FILE4 
FILES 
FILE6 
FILE7 
FILE8 
FILE9 
*FILE10 
*FI LE11 
=FT LF 12 
*FILF13 
*f I LE14 
*FI LE15 
*f I LFL6 
*FI LE17 
*FILE18 
*FI LE19 
*f I LE20 
*FI Lp21 
*f  I  LE22 
*FIL?23 
*F I LE24 
*FI  Lc25 
*FILE26 
*F I LF27 
*F I LF28 
*FI LF29 
*FI L530 
*FILF3l 
*FILF32 
=FI LE33 
*FI LF34 
*F I LE35 
=FI LE36 
*FI LE37 


FILE  MVS 2 CMS  EXEC 


******* *************************************************** 

MVS2CMS  EXEC 

THIS  EXEC  WILL  CAUSE  THE  TRANSFER  CF  THE  GIFTS  SOURCE 
CODE  FROM  MVS  DISK  MVS004  TO  THE  USER'S  CMS  DISK  SPACE. 

PRIOR  TO  USE  OF  THIS  EXEC,  LINK  TO  MVS004  BY  ISSUING: 

CP  LINK  MVS  2 6B  36B  RR 
ACC  36B  E 


ILEDEF  INMOVE  E  DSN  S316I  FILEI 
ILEDEF  CUTMOVE  DISK  GIFTS5  INF 
MOVEFILE  INMCVE  CUTMCVE 
ILEDEF  INMOVE  E  DSN  S3I61  FILE2 
ILEDEF  OUTMOVE  DISK  AUTOL  FORTRAN 
MOVEFILE  INMCVE  CUTMCVE 
COPY  AUTOL  FORTRAN  A  *  PACKED  =  (PA 
ERASE  AUTOL  FORTRAN  A 
FILEDEF  INMOVE  E  OSN  S316I  FILE3 
FILEDEF  OUTMOVE  DISK  BULKF  FORTRAN 
MOVEFILE  INMCVE  OUTMOVE 
COPY  BULKF  FORTRAN  A  *  PACKED  *  (PA 
ERASE  BULKF  FORTRAN  A 
FILEDEF  INMOVE  E  DSN  S3161  FILE4 
FILEDEF  OUTMOVE  DISK  BULKLB  FORTRAN 
MOVEFILE  INMCVE  CUTMCVE 
COPY  BULKLB  FORTRAN  A  *  PACKED  =  (PA 
ERASE  BULKLB  FORTRAN  A 
FILEDEF  INMOVE  E  DSN  S3161  FILES 
FILEDEF  OUTMOVE  OISK  BULKM  FORTRAN 
MOVEFILE  INMCVE  OUTMOVE 
COPY  BULKM  FORTRAN  A  *  PACKED  *  (PA 
ERASE  BULKM  FORTRAN  A 
FILEDEF  INMOVE  E  DSN  S3161  FILE6 
FILEDEF  OUTMOVE  DISK  BULKS  FORTRAN 
MOVEFILE  INMCVE  OUTMCVE 
COPY  BULKS  FORTRAN  A  =  PACKED  =  (PA 
ERASE  BULKS  FORTRAN  A 
FILEDEF  INMOVE  E  DSN  S3161  FILE7 
FILEOEF  OUTMOVE  DISK  DECCM  FORTRAN 
MOVEFILE  INMCVE  CUTMCVE 
COPY  DECOM  FORTRAN  A  *  PACKED  *  (PA 
ERASE  CECOM  FORTRAN  A 
FILEDEF  INMCVE  E  DSN  S3161  FILE8 
FILEDEF  OUTMOVE  DISK  DEFCS  FORTRAN 
MOVEFILE  INMCVE  OUTMOVE 
COPY  DEFCS  FOR i RAN  A  *  PACKED  *  (PA 
ERASE  CEFCS  FORTRAN  A 
FILEDEF  INMCVE  E  OSN  S3161  FILE9 
FILEDEF  OUTMOVE  DISK  OEFL  FORTRAN 
MOVEFILE  INMCVE  OUTMCVE 
COPY  DEFL  FORTRAN  A  =  PACKED  =  (PA 
ERASE  CEFL  FORTRAN  A 
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FILEDEF  INMOVE  E  OSN  S3161  FILEIO 

FILcOEF  OUTMOVE  DISK  EDITLB  FORTRAN 

MOVEFILE  INMCVE  CUTMCVE 

COPY  EDITLB  FORTRAN  A  *  PACKED  *  (PA 

ERASE  EDITLB  FORTRAN  A 

FILEDEF  INMOVE  E  OSN  S3161  FILEH 

FILEDEF  OUTMCVE  DISK  EDITH  FORTRAN 

MOVEFILE  INMOVE  OUTMCVE 

COPY  EDI TM  FORTRAN  A  »  PACKED  »  (PA 

ERASE  EDITM  FORTRAN  A 

FILEDEF  INMOVE  E  OSN  S3I61  FILE12 

FILEDEF  OUTMOVE  DISK  EDITS  FORTRAN 

MOVEFILE  INMCVE  OUTMOVE 

COPY  EDITS  FORTRAN  A  *  PACKED  «  (PA 

ERASE  EDITS  FORTRAN  A 

FILEDEF  INMOVE  E  DSN  S316I  FILE13 

FILEDEF  OUTMCVE  DISK  ESTIM  FORTRAN 

MOVEFILE  INMCVE  OUTMOVE 

COPY  ESTIM  FORTRAN  A  «  PACKED  *  (PA 

ERASE  ESTIM  FORTRAN  A 

FILcOEF  INMOVE  E  DSN  S3I6I  FILE14 

FILEDEF  OUTMCVE  DISK  LOADS  FORTRAN 


PACKED  *  (PA 


FILEI5 

FORTRAN 


(PA 


MOVEFILE  INMOVE  OUTMCVE 
COPY  LCACS  FORTRAN  A  *  ' 

ERASE  LOAOS  FORTRAN  A 
FILEDEF  INMOVE  E  DSN  S3161 
FILEDEF  OUTMOVE  DISK  LOCAL 
MOVEFILE  INMCVE  OUTMCVE 
COPY  LOCAL  FORTRAN  A  =  PACKED 
ERASE  LOCAL  FORTRAN  A 
FILEDEF  INMOVE  E  OSN  S316I  FILE16 
FILEDEF  OUTMOVE  DISK  OPTIM  FORTRAN 
MOVEFILE  INMOVE  CUTMCVE 
COPY  CPTIM  FORTRAN  A  =  PACKED  *  (PA 
ERASE  OPTIM  FORTRAN  A 
FILEDEF  INMOVE  E  OSN  S3161  FILE17 
FILEDEF  OUTMOVE  DISK  PRINT  FORTRAN 
MOVEFILE  INMCVE  CUTMCVE 
COPY  PRINT  FORTRAN  A  =  PACKED  *  (PA 
ERASE  PRINT  FORTRAN  A 
FILEDEF  INMOVE  E  OSN  S3161  FILE18 
FILEDEF  OUTMOVE  OISK  RECCS  FORTRAN 
MOVEFILE  INMCVE  OUTMOVE 
COPY  REDCS  FORTRAN  A  *  PACKED  =  (PA 
ERASE  REDCS  FORTRAN  A 
FILEDEF  INMCVE  E  DSN  S3161  FILE19 
FILEDEF  OUTMOVE  DISK  RESIDU  FORTRAN 
MOVEFILE  INMCVE  CUTMCVE 
COPY  RESIOU  FORTRAN  A  »  PACKED  *  (PA 
ERASE  RESIDU  FORTRAN  A 
FILEDEF  INMOVE  E  DSN  S3161  FILE20 
FILEDEF  OUTMOVE  OISK  RESULT  FORTRAN 
MOVEFILE  INMOVE  OUTMCVE 
COPY  RESULT  FORTRAN  A  »  PACKED  *  (PA 
ERASE  RESULT  FORTRAN  A 
FILEDEF  INMOVE  E  OSN  S3I61  FILE21 
FILEOEF  OUTMCVE  DISK  SAVEK  FORTRAN 
MOVEFILE  INMCVE  CUTMCVE 
COPY  SAVEK  FORTRAN  A  =  PACKED  *  (PA 
ERASE  SAVEK  FORTRAN  A 
FILEDEF  INMOVE  E  DSN  S3161  FILE22 
FILEOEF  OUTMCVE  DISK  STIFF  FORTRAN 
MOVEFILE  INMOVE  OUTMCVE 
COPY  STIFF  FORTRAN  A  »  PACKED  *  (PA 
ERASE  STIFF  FORTRAN  A 
FILEDEF  INMOVE  E  DSN  S3161  FILE23 
FILEDEF  OUTMOVE  DISK  STRESS  FCRTRAN 
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MOVEFILE  INMCVE  OLTMOVE 

COPY  STRESS  FORTRAN  A  «  PACKED  »  {PA 

ERASE  STRESS  FORTRAN  A 

FILEDEF  INMOVE  E  DSN  S3161  FILE24 

FILEDEF  OUTMOVE  DISK  SUBS  FORTRAN 

MOVEFILE  INMCVE  GUTMCVE 

COPY  SUBS  FORTRAN  A  «  PACKED  «  (PA 

ERASE  SUBS  FORTRAN  A 

FILEDEF  INMOVE  E  DSN  S3161  FILE25 

PILEDEF  OUTMOVE  DISK  TRAN1  FORTRAN 

MOVEFILE  INMCVE  OLTMOVE 

COPY  TRAM  FORTRAN  A  *  PACKED  »  (PA 

ERASE  TRAN1  FORTRAN  A 

FILEDEF  INMOVE  E  DSN  S3161  FILE26 

FILEDEF  OUTMOVE  01 SK  TP AN 2  FORTRAN 

MOVEFILE  INMCVE  OUTMOVE 

COPY  TRAN2  FORTRAN  A  *  PACKED  =  (PA 

ERASE  TRAN2  FORTRAN  A 

FILEDEF  INMOVE  E  DSN  S3I61  FILE27 

FILEDEF  OUTMOVE  01 SK  TRANS  FCRTRAN 

MOVEFILE  INMCVE  CUTMCVE 

COPY  TRANS  FORTRAN  A  *  PACKED  *  (PA 

ERASE  TRANS  FORTRAN  A 

FILEDEF  INMOVE  E  DSN  S3 16 1  FILE28 

FILEDEF  OUTMOVE  DISK  TESTCS  FCRTRAN 

MOVEFILE  INMCVE  OUTMOVE 

COPY  TESTCS  FORTRAN  A  »  PACKED  =  (PA 

ERASE  TESTCS  FORTRAN  A 

FILEDEF  INMOVE  E  DSN  S3161  FILE29 

FILEDEF  OUTMOVE  DISK  TESTIO  FCRTRAN 

MOVEFILE  INMOVE  OUTMOVE 

COPY  TESTIO  FORTRAN  A  =  PACKED  *  (PA 

ERASE  TESTIO  FORTRAN  A 

FILEDEF  INMOVE  E  OSN  S3161  FILE30 

FILEDEF  OUTMOVE  OISK  TEST  FCRTRAN 

MOVEFILE  INMCVE  OUTMOVE 

COPY  TEST  FORTRAN  A  *  PACKED  *  (PA 

ERASE  TEST  FORTRAN  A 

FILEDEF  INMOVE  E  OSN  S3161  FILE31 

FILEDEF  OUTMOVE  OISK  TEST2  FORTRAN 

MOVEFILE  INMQVE  OUTMCVE 

COPY  TEST2  FORTRAN  A  =  PACKED  ■  (PA 

ERASE  TE  ST 2  FORTRAN  A 

FILEDEF  INMOVE  E  OSN  S3161  FILE32 

FILEDEF  OUTMOVE  DISK  TSTPLT  FCRTRAN 

MOVEFILE  INMCVE  CUTMCVE 

COPY  TSTPLT  FCRTRAN  A  =  PACKED  =  (PA 

ERASE  TSTPLT  FCRTRAN  A 

FILEDEF  INMOVE  E  DSN  S316J  FILE33 

FILEDEF  OUTMOVE  DISK  L I  BR *  FORTRAN 

MOVEFILE  INMCVE  CUTMCVE 

FILEOEF  INMOVE  E  DSN  S3161  FILE34 

FILEDEF  OUTMOVE  DISK  LIBR2  FORTRAN 

MOVEFILE  INMCVE  CUTMCVE 

FILEDEF  INMOVE  E  DSN  S3161  FILE35 

FILEDEF  OUTMOVE  DISK  LIBR3  FORTRAN 

MOVEFILE  INMCVE  OUTMCVE 

FILEDEF  INMOVE  E  DSN  S3161  FILE36 

FILEDEF  OUTMOVE  DISK  LIBR4  FCRTRAN 

MOVEFILE  INMCVE  OUTMCVE 

FILEDEF  INMOVE  E  DSN  S3161  FILE37 

FILEDEF  OUTMOVE  DISK  LIBR5  FCRTRAN 

MOVEFILE  INMOVE  OUTMCVE 
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APPENDIX  J: 


GIFTS  USER  INSTRUCTIONS  FOR  THE  IBM  (CP/CMS)  VERSION 
TERMINAL  USAGE 

GIFTS  may  be  executed  on  any  terminal,  but  if  the  terminal 
is  not  a  Tektronix  4000  series  graphics  terminal,  plot  com¬ 
mands  must  not  be  used  as  they  will  be  meaningless  and  may 
cause  termination  of  execution.  If  using  a  non-graphics 
terminal,  the  user  will  have  only  the  alphanumeric  output 
from  GIFTS  available. 

GIFTS  ANALYSIS  PROCEDURES 

The  analysis  procedures  described  in  GIFTS  User's  Refer¬ 
ence  Manual  are  used,  but  the  module  IBMUDB  must  first  be 
executed  to  create  the  data  base  for  the  analysis.  Follow¬ 
ing  the  execution  of  IBMUDB,  the  user  will  have  48  (small) 
files  on  the  'A'  disk.  Upon  the  completion  of  an  analysis, 
it  is  the  responsibility  of  the  user  to  erase  these  files, 
as  needed,  from  his  disk  space. 

STORAGE  REQUIREMENTS 

To  ensure  sufficient  core  for  an  analysis,  prior  to 
executing  a  module,  issue  the  command: 


CP  DEFINE  STORAGE  1M 


which  will  place  you  in  the  CP  operating  environment.  To 
return  to  the  CMS  environment,  issue  the  command: 

CP  I PL  CMS. 

LINKING  TO  THE  GIFTS  SYSTEM'S  DISK  SPACE 

In  order  to  perform  a  GIFTS  analysis,  the  GIFTS  system's 

disk  space  must  be  linked  to  and  accessed  as  the  user's  'C' 

disk.  This  can  be  accomplished  by  issuing  the  command  (user 

input  in  lower  case,  computer  output  in  upper  case): 

cp  link  3161p  191  199  rr 
ENTER  READ  PASSWORD: 
gifts 

R;  T=0 .01/0.01  20:25:17 
access  199  c 
C  (199)  R/O 

R;  T=0 .01/0.02  20:25:25 

Once  linked  and  accessed  as  the  user's  'C'  disk,  the  GIFTS 
system  is  ready  for  use. 

ENTERING  A  BLANK  LINE  IN  GIFTS 

At  times,  during  execution  of  the  GIFTS  modules,  it  will 
be  necessary  to  issue  a  blank  line,  or  GIFTS  may  even  prompt 
the  user  to  enter  a  carriage  return.  It  is  of  the  utmost 
importance  in  both  cases,  that  a  space,  plus  a  carriage 
return  be  entered.  If  a  carriage  return  alone  is  entered, 
program  module  execution  will  be  terminated. 


EXECUTING  A  GIFTS  PROGRAM  MODULE 

To  execute  a  GIFTS  program  module,  issue  the  command: 

RUN  XXXXXX 

where  XXXXXX  is  the  name  of  the  desired  module.  This  will 
cause  the  desired  module  and  necessary  libraries  to  be  loaded 
and  executed.  The  user  is  reminded  that  module  IBMUDB  must  be 
executed  at  the  start  of  each  analysis. 
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